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Introduction 



The people at 80 Micro hate to turn down good manuscripts. The 
problem is trying to fit them all in the magazine. So somebody came up 
with the great idea: "Lets take the best of the 'rest' of 80 and publish 
them in a book!" 

Here it is. 

We've taken special care to edit and design this book for easy use and 
long life. We know you re going to want it around. Never before pub- 
lished anywhere, these thirty-one tutorials and utilities represent some 
of the very best manuscripts ever sent to 80 Micro. Enjoy! 
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Going Beyond 
Sequential and 
Random Access 

by Bradford Russo 



All data processing requires the storage of data on a peripheral mass 
storage device. For most microcomputers, this means disks. 
TRSDOS and most other microcomputer operating systems only sup- 
port two fundamental file access methods, sequential and random. Both 
have limitations. 

Sequential Access 

Sequential access was the first method used in data processing, 
because of the nature of the first mass storage media. To read any given 
piece of data from punched cards or from magnetic tape, it was neces- 
sary to read through all the records that came before (Figure 1). The se- 
quential access technique led to batch processing, which has some major 
disadvantages. The most obvious problem is time lag, since data is not 
processed until a batch, typically a whole day's or week's worth of ac- 
tivity, accumulates. For example, data affected by activity on Monday 
may not be brought up to date until Friday. 

This earliest of file access methods is also available on microcom- 
puters. In sequential accessing, the computer stores data (in ASCII code) 
in the same order it is written, starting at the beginning of the file. Se- 
quential filing is handy when you need to store only one or a few 
variables worth of data. It's also useful when data is needed in RAM in 
the form of a table or a set of subscripted arrays. You can use simple and 
effective FOR-NEXT loops to read the data into and out of RAM. The 
limited accessing capability becomes unimportant, since once the data 
resides in RAM it can be accessed in many ways. 
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Figure 1 

Random Access 

The random file access technique was developed next, after the ad- 
vent of mass storage media which could be read in non-serial order, in- 
cluding drum and disk. The read/write head on disks not only reads 
serially around one track, but can also move sideways from one track to 
the next (Figure 2). Multiple platter disk drives also read up and down 
along a third dimension by selecting the desired platter from a stack of 
several (Figure 3). These new storage devices led to interactive and real- 
time processing methods. The advantage to real-time processing is its in- 
stantaneous updating of data. This is very useful, for instance, in a busi- 
ness inventory control system. New shipments can be recorded immedi- 
ately instead of waiting for a complete batch to be processed. 




Figure 2 

The process of jumping from one given record to any other record 
resembles random movement; however, the process is more accurately 
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described as direct or relative. Direct means the computer can go direct- 
ly to a given record, without reading all the intervening records; relative 
means that a particular record is referenced by its location relative to the 
beginning of the file. In other words, record number 126 is the one hun- 
dred twenty-sixth record from the beginning of the file. For example, 
assume the file contains records sized so that exactly ten of them fit on 
one track of the disk. The first track of the file contains record numbers 
1-10. The second track holds 1 1-20, and so on. To locate record number 
126, the computer first moves to the thirteenth track, which holds 
records 121-130, then reads around the track from 121 to 126. This two- 
dimensional read process only requires 13 + 6 = 19 reads to find record 
number 126. That's a lot faster than a sequential read (Figure 4). 
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Figure 3 

In random access files, a record is referenced by a numeric value 
called the record number. Each record of the file must have its own iden- 
tifying number. For example, in a payroll package, the data pertaining to 
a given employee could be identified by the employee's clock number. If 
the employees are numbered serially, from 1 on up, clock number be- 
comes synonomous with record number. The identifier (clock num- 
ber) is directly related to record number. You can also use random ac- 
cess to store data whose identifiers are non-numeric. An example of this 
is a file storing a record for each day's activities, using dates as iden- 
tifiers. The record storing data for the fifth of March would have an iden- 
tifier of March 5, which translates into physical record number 64 by the 
following process: since there are 31 days in January, and 28 in 
February, that means March 5 is 31 +28 + 5 = 64 days into the year. 

Sometimes the identifier cannot be directly related to record number. 
Suppose the identifier is to be Social Security number instead of clock 
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number. A Social Security Number is nine digits long, so any one person 
must fall between 100-00-0000 and 999-99-9999. That represents 
899,999,999 possible combinations, which would require nine hundred 
million records. If your company has only one hundred employees, that 
means nine million records are wasted for every record actively used. 
Such a waste is impossible, of course, since there isn't that much on-line 
storage available on your computer. 




Figure 4 



It would be more practical to relate the 100 identifiers ( 100 employees} 
to a file of a little more than 100 records. The earliest technique 
developed to do this is called hashing. In hashing, the relationship be- 
tween identifier and record number is no longer direct, but is based on a 
mathematical formula an algorithm devised for reducing the widely 
varying identifiers down to a condensed set of record numbers, Occa- 
sionally, two or more identifiers hash down to the same record number. 
This is called a collision, and the identifiers are called synonyms. The 
hashing algorithm must have provisions for handling these incidents. 
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ISAM or Keyed Index 

Another technique for relating an identifier to a record number is com- 
monly known as ISAM jlndexed Sequential Access Method), or keyed 
index. The unique identifier of a record is called the key field, or key. 
ISAM is not supported by TRSDOS or by most other microcomputer 
operating systems; however, it is available for the TRS-80 Model II in the 
compiler version of BASIC, as well as FORTRAN and COBOL. You can 
create an indexed access method under TRSDOS by combining the se- 
quential and random methods. 
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^- NEXT RECORD ADDED TO FILE WOULD TAKE RECORD POINTER NUMBER 9; 
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PLACE. 

Figure 5 

Two separate files are required for an indexed technique. One is the 
master file, which holds all the data which is to be stored. The other is an 
index to the master file. Unlike hashing, there is no mathematical rela- 
tionship between a given key |identifier), and its associated record 
number. The number is not derived from the key, but assigned arbitrari- 
ly. When data is added to the master file, it is placed in the next available 
physical record on the disk. This record's number is placed in the index 
file beside its associated key (Figure 5). An indexed technique does not 
waste disk space for keys that might exist, as direct random access does. 
It only consumes space for keys which are actually being used. When a 
record is deleted from the master file, that space is recovered and can be 
used later, to hold new data (Figure 5). 
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MASTER RECORD NUMBER 3 IS LYING FALLOW 

-BUT WILL BE USED AS THE NEXT ADDED RECORD. 

BECAUSE IT IS THE NEXT AVAILABLE INACT'VE RECORD. 

Figure 6 

In order to road data from the master file, the index file is first searched 
for the requested key. That key has an associated record number beside 
it. which is used to read the appropriate record from the master file. 
Usually, the index file is sorted by key. You can use a serial read of the 
index fiie, key by key, to produce reports in key sequence. 



o: 
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An Unlistable, 

Unbreakable 

Program 

by Jon Boczkiewicz 



System Requirements 

Level II BASIC or 

Disk BASIC 

Model I or III 



Have you teachers ever wanted instructional programs your students 
could not break to find the answers? A simple POKE command 
disables the BREAK key. However, students soon learn they can load 
and list a program before they run it. Here is my simple method for mak- 
ing your own programs unlistable and unbreakable. You can use it with 
any program, although Disk BASIC requires different numbers than 
Level I or II. The technique involves breaking the problem into two 
parts, because solving one problem creates another. 

Make It Unlistable 

The first step is to make the program unlistable. While the available 
numbers using two bytes run to 65535 (256 times 256 minus one], line 
numbers are limited to 0-65529. I do not know what these last six 
numbers are reserved for, but a program line number in this range 
causes a syntax error message. The computer keeps track of where to go 
by requiring the first two bytes of a program line to be the address of the 
beginning of the next program line. The second two bytes of the program 
line are the line number. After you write and debug a program, change 
the first line number to a number greater than 65529. Listing the pro- 
gram causes the first line to be read as a number higher than the limit, 
and a READY message appears. It does not affect the program to have a 
line number higher than acceptable. 

You can change a line number with a POKE. The problem is knowing 
where to POKE. Remember the memory map in Appendix D of your 
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Level II BASIC Reference Manual? A look at the map shows the BASIC 
program text starts at memory location 17129. This location contains the 
first byte of the first program line. Bytes three and four (the line 
numbers) must be in memory locations 17131 and 17132. So after the 
program is running and debugged, save and back up your own copies, 
strip all the comments out of the program in the computer, and com- 
press it, if you can. Then, from the command mode, POKE 17131,251 (or 
higher) :POKE 17132,255. It should now be unlistable. Run the pro- 
gram—it should be unchanged, except for a small problem with GOTOs 
or GOSUBs. 

GOTOs or GOSUBs find their target line by going to the start of the 
program and looking for the line number, starting with the first line. But 
now the first line has a number that is higher than the highest allowed. 
The solution is simple— undo what you have done. You POKEd num- 
bers into memory locations 17131 and 17132 to change the line number. 
Now POKE the original numbers back, but this time from within the pro- 
gram. Your first program line (the one which gets renumbered) can do 
this. You can use a special line:10 POKE 17131, 10:POKE 17132, 0. But 
this leaves you right where you were, able to load, run, break and list the 
program. 

Make It Unbreakable 

You could disable BREAK by POKEing 16396, 23 and later enable it by 
POKE 16396, 201, but if you have a mean streak, try the following se- 
quence: POKE 16396, 62: POKE 16397, 187: POKE 16398,0. This rede- 
fines the BREAK key to NEW, and wipes out the program whenever the 
key is hit. Or, you can POKE 16397 with any of the internal codes for the 
BASIC keywords from Appendix E of the Level II BASIC Reference 
Manual The program then runs as desired, including GOTO and GO- 
SUB, but whenever you press BREAK, the program is NEWed. This will 
not work if you have had Radio Shack's lowercase modification in- 
stalled; instead you get whatever symbol has the ASCII number you 
POKEd into 16397. If you are using Disk BASIC (version 2.2 or higher), 
POKEing 16396,23 causes the system to reboot when you press BREAK. 

You must consider two other possibilities for program security. First, a 
student could run the program to its end, then list it. This is prevented by 
the END statement which POKEs 17131,251 and 17132,255, and 
enables BREAK with POKE 16396,201. The program should have only 
one END statement, and all other ending points should GOTO this state- 
ment. Second, a student could deliberately or accidentally make an error 
that would cause the program to break and list before running again. 
Lessen the chance of this by using error traps. These can be statements 
that require re-entry of wrong data, or a simple GOTO that sends execu- 
tion to the END statement. The only essential condition is that the pro- 
gram end through a single statement. 
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The Code 

To use this technique, make the following line the first line of your 
program: 

10 POKE 17131, 10:POKE 17132,0:POKE 16396,62:POKE 16397, 187: POKE 16398,0 
If the line number you select is 5, POKE 17131,5. Now add the ending 
line as follows: 

XXXX POKE 17131,251:POKE 17132,255: POKE 16396,201:END 
(or NEW instead of END). 
If the program is in Disk BASIC 2.2, replace 17131 with 26304 and 17132 
with 26305. In Disk BASICR 2.2, use 26959 and 26960. Otherwise, 
everything is the same. To check, run the program. Everything should 
work except BREAK. Now, in command mode, POKE 17131, 254:POKE 
17132,255 or 27754 and 27755, if in Disk BASIC. Try to list it-it should 
not work. You can save the program on tape or disk, load it with no spe- 
cial effort, and run it. 
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Form Fillout 
Technique 



by Gary S. Lindsey 



System Requirements: 

Level II BASIC 
Model I or III 



Have you ever considered the time and the number of programming 
steps it takes to write the code for the entry, viewing, editing, and 
reviewing of data? When your program requires a lot of data entry, using 
a form fillout program can save both programmer and user a lot of time 
and aggravation. 

This process involves displaying a form, often with data included, on a 
screen with protected fields. The user enters into the free fields new or 
modified data by overwriting all or part of the data. Then the user press- 
es a combination of keys to transmit the new or modified data back to 
the computer. The computer takes the data and converts it to the vari- 
ables necessary for processing. 

The programs in this chapter allow a programmer to implement a ver- 
sion of the form fillout technique on the Model I TRS-80. Program List- 
ing 1 is written in assembly language for the Z80 microprocessor. Pro- 
gram Listing 2 is written in BASIC to load and demonstrate the assem- 
bly-language program. The use of assembly language is necessary for 
speed and the implementation of commands that are not available in the 
BASIC interpreter. 

In my system, I have placed the BASIC subroutines necessary to im- 
plement the form fillout program in ASCII disk files that can be ap- 
pended to any BASIC program. The program listings in this article are 
designed for a 48K disk system. I tested all conversions on my system by 
disconnecting the disks or expansion memory and by setting the mem- 
ory size to the appropriate values. 
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Implement the form fillout technique by including two subroutines, 
50000 and 60000, in a BASIC program. Subroutine 50000 loads the as- 
sembly-language program into memory. Subroutine 60000 places cer- 
tain BASIC variables which describe the data to be processed into mem- 
ory for use by the assembly-language program, and calls the assembly- 
language program. The BASIC program places variables, prompts, and 
titles on the screen. The assembly-language program accesses the vari- 
able data directly from the screen, allowing changes. The variables are 
then sequentially placed directly into the memory allocated by the BA- 
SIC interpreter for the variables A$(l) through A${N). The assembly-lan- 
guage program handles the data from the screen as ASCII characters. 
When control is returned to the BASIC program, the new or modified 
data is present in the A$(I) variables in the order that they appeared on 
the screen. The BASIC program must convert the A$(I) variables into the 
appropriate program numeric and string variables. 

The BASIC interpreter in the TRS-80 locates string variables through 
the use of a 3-byte description of the string. Byte 1 contains the length of 
the string; bytes 2 and 3 contain the memory address of the string pointer. 
The address of this 3-byte description is determined by using the VAR- 
PTR(A$(1J) BASIC command, which returns the address of byte 1 of the 
description of A$(l] variable through the use of this command, and 
POKEs it into particular memory locations for use by the assembly-lan- 
guage program. Since the 3-byte descriptions for all A$(I) variables are 
contiguous in memory, it is only necessary to pass the address of the 
A$[l) string to the assembly-language program. 

Because the assembly-language program writes data directly into the 
A$(I) locations up to the allowable lengths of the variables, the A$|I) vari- 
ables must be expanded to their maximum possible lengths before the 
assembly-language program is executed. Without this step, the A$[I) 
variables may be of any length when the assembly- language program is 
called, and you may destroy the validity of the 3-byte description by 
writing more or less data into a variable than the BASIC interpreter is ex- 
pecting. 

Using the Form Fillout Program 

The assembly- language program interprets the six possible operator 
commands and responds appropriately. 

•The left and right arrows move the cursor within the variable being 
worked. 

•The up and down arrows move the cursor to the first position of the 
next or the preceding variable. The up and down arrows can be used at 
any time, independent of the cursor position within the variable, with- 
out changing the variable. Previous changes to the variable are not 
disturbed. 
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•The carriage return works like the down arrow if the cursor is in the 
first position of the variable. If the cursor is anywhere else and a carriage 
return is entered, the remaining portion of the variable is filled with 
blanks. This makes new data entry easy since, under BASIC, the carriage 
return terminates entries to the computer. 

•Pressing the equal sign stores the variable data from the screen into the 
RAM used by the BASIC interpreter for storage of the A$(I) variable and 
returns control to the BASIC program. 

The data on the screen is changed at the cursor location whenever a 
character is entered that is not one of the control characters mentioned 
above. 

Implementation of the form fillout subroutines in a program is very 
simple, as illustrated in the accompanying demonstration program. The 
following steps must be taken in order: 
•Set the memory size to 65217 for a 48K configuration. 

• Load the assembly-language program with a GOSUB 50000 at the 
beginning of the program. 

•Clear the screen and print the form and its variables on the screen. The 
variables are detected by the assembly-language program by the pres- 
ence of a colon (:). The screen must be printed with a colon and two 
blank spaces preceding each changeable variable. Since the assembly- 
language program searches for a colon as the start of variables, you can 
protect variables from modification by preceding them with any charac- 
ter except a colon. The assembly- language program searches for the col- 
ons, skipping over any data on the screen prior to reaching a colon. 

• Define N as the number and L(I) as the lengths of the variables. GOSUB 
60000 stores these variables in memory for use by the assembly-lan- 
guage program and calls the USR program. 

• Convert the AS(I) variables returned by the assembly- language pro- 
gram into the appropriate program string and numeric variables. 

• Proceed with the user's program. 

Sample Outputs 

To illustrate the use of the form fillout program, I have included some 
sample outputs from the demonstration program. Figures 1, 2, and 3 
show the three screen displays before any data has been entered into 
them. Note in Figure 2 that the numeric entries are shown as zeros. Also 
note that a blank space for the sign has been included for the numeric 
values. The BASIC interpreter adds these blanks. You don't need to in- 
clude the space when you enter data onto the screen. Figure 4 shows 
Display 1 with a portion of the data entered, and Figure 5 shows Display 
1 with a complete set of data. 

Figure 6 shows Display 2 after the NAME has been entered using Dis- 
play 1 . Note that the NAME prompt and variable are separated by an as- 
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terisk. The asterisk means that the NAME cannot be changed using Dis- 
play 2. The cursor jumps over the NAME variable and positions itself at 
the beginning of the EMPLOYEE NUMBER variable. Figure 7 shows a 
completed Display 2. Figure 8 shows Display 3 with the protected 
fields and titles before any data is entered. Figure 9 shows a completed 
Display 3. 

DISPLAY 1 
DEMONSTRATES DATA ENTRY/EDIT WITHOUT PROTECTED FIELDS 
NAME : DATE OF BIRTH : 

STREET ADDRESS : 
CITY/STATE : 
PHONE NUMBER : 
OCCUPATION : 

Figure 1. Da fa entry without protected fields 



DISPLAY 2 
DEMONSTRATES DATA ENTRY/EDIT WITH PROTECTED FIELDS 
INCLUDING NUMERIC VALUES 
NAME • EMPLOYEE NUMBER : 

HIRE DATE : 

SECTION NUMBER : 
YEAR OF DEGREE : 
SALARY : 

Figure 2. Data entry with protected fields 



DISPLAY 3 
DEMONSTRATES FORMATTED SCREEN WITH EXTRA COMMENTS/TITLES 

PERSONAL DATA 
NAME* PHONE NUMBER* 

ADDRESS* 

RECREATIONAL DATA 

HOBBIES NUMBER 1: 

NUMBER 2: 

SKILLS NUMBER 1: 

NUMBER 2: 

Figure 3. Formatted screen with additional data 



DISPLAY 1 

DEMONSTRATES DATA ENTRY/EDIT WITHOUT PROTECTED FIELDS 
NAME: JOHN Q. PUBLIC DATE OF BIRTH: 7/4/1954 

STREET ADDRESS : 
CITY/STATE : 
PHONE NUMBER : 
OCCUPATION: 

Figure 4. Data entry without protected fields 
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DISPLAY 1 
DEMONSTRATES DATA ENTRY/EDIT WITHOUT PROTECTED FIELDS 
NAME: JOHN Q. PUBLIC DATE OF BIRTH: 7/4/1954 

STREET ADDRESS: 100ANYSTREET 
CITY/STATE: ANYTOWN, USA 00000 
PHONE NUMBER: 555-1212 
OCCUPATION: COMPUTER PROGRAMMER 

Figure 5. Screen display showing complete data entry 

DISPLAY 2 
DEMONSTRATES DATA ENTRY/EDIT WITH PROTECTED FIELDS 
INCLUDING NUMERIC VALUES 

NAME* JOHN Q, PUBLIC EMPLOYEE NUMBER: 

HIRE DATE: 
SECTION NUMBER: 
YEAR OF DEGREE: 
SALARY: 

Figure 6. Data entry with protected fields 

DISPLAY 2 
DEMONSTRATES DATA ENTRY/EDIT WITH PROTECTED FIELDS 
INCLUDING NUMERIC VALUES 

NAME* JOHN Q_. PUBLIC EMPLOYEE NUMBER: 10000 

HIRE DATE: 6/26/75 
SECTION NUMBER: 1234 
YEAR OF DEGREE: 1974 
SALARY: 23000 

Figure 7. Display showing complete data entry 

DISPLAY 3 
DEMONSTRATES FORMATTED SCREEN WITH EXTRA COMMENTS/TITLES 

PERSONAL DATA 
NAME* JOHN Q. PUBLIC PHONE NUMBER* 555-1212 

ADDRESS* 100 ANYSTREET 

ANYTOWN, USA 00000 

RECREATIONAL DATA 

HOBBIES NUMBER 1: 

NUMBER 2: 

SKILLS NUMBER 1 

NUMBER 2 

Figure 8. Formatted screen with additional data 

DISPLAY 3 
DEMONSTRATES FORMATTED SCREEN WITH EXTRA COMMENTS/TITLES 

PERSONAL DATA 
NAME* JOHN Q_. PUBLIC PHONE NUMBER* 555-1212 

ADDRESS* 100 ANYSTREET 

Figure continued 
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RECREATIONAL DATA 
HOBBIES NUMBER 1: COMPUTER HOBBYIST 
NUMBER 2: FLYING AIRPLANES 

SKILLS NUMBER 1: 45 WPM TYPIST 

NUMBER 2: ELEC MAINTENANCE 

Figure 9. Display showing complete data entry 

Assembly-Language Program Description 

The assembly-language part of the program is discussed here in sym- 
bolic language format to show how it works. The assembled program 
has been converted to decimal values and is POKEd into memory by the 
subroutine at line 50000 in the BASIC program. The principal variables 
in this program are as follows: 

NUM The number of changeable variables on the screen as POKEd 
into memory by the BASIC program. NUM corresponds to the 
BASIC variable N. 
LEN A series of numbers representing the lengths of the variables 

which are also POKEd into memory by the BASIC program. 
These correspond to the Ljl) through L(N) BASIC variables. 
VARWK Tracks which variable is being entered. The range is 1 to N, 

with N less than or equal to 32. 
POS Variable indicating position of cursor within the variable be- 

ing worked. The range is to LEN. 
PTR An address POKEd into memory by the BASIC program 

which points to the address in RAM containing the pointer to 
the 3-byte description of the AS(1) variable. The BASIC pro- 
gram derives this address using the VARPTR(A$(1]) com- 
mand. 
In the assembly-language program, lines 170-330 set up the initial 
register variables and position the cursor at the beginning of the first 
variable. The INPUT routine, lines 370-540, attempts to get a character 
from the keyboard. If no key has been pressed, the subroutine generates 
a block cursor, delays, restores the character to the screen, and then tries 
again to get a character from the keyboard. This process creates a 
flashing cursor on the video screen. Once the routine finds a character, 
control branches to the UPARR routine at line 580. 

The first two lines of the UPARR routine check to see if the input 
character is an up arrow. If it is not an up arrow, control branches to the 
RTARR routine at line 810. If it is an up arrow, the routine checks to see 
if the variable being worked is the first variable on the screen. If so, con- 
trol is returned to the INPUT routine with no further action. If the 
variable is not the first, the screen is searched backward, and the cursor 
is placed over the first position of the previous variable. The routine then 
passes control back to the INPUT routine. 
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The first two lines of the RTARR routine check to see if the input 
character is a right arrow. If the character is not a right arrow, the routine 
jumps to the LTARR routine at line 950, otherwise, a check is made to 
see if the cursor is at the last allowable position of the variable. If it is, 
control is passed to INPUT with no changes made. If the cursor is not at 
the last position, it moves forward one character space on the screen. 
Control is then passed to the INPUT routine. 

The first two lines of the LTARR routine check to see if the input 
character is a left arrow. If the character is not a left arrow, control is 
passed to the DNARR routine at line 1070. If the character is a left arrow, 
a check is made to see if the cursor is in the first position of the variable. 
If it is, control is passed to INPUT with no changes made. If the cursor 
is not in the first position, the cursor is backed up one character space 
on the screen. Control is then passed to the INPUT routine. 

The first two lines of the DNARR routine check to see if the input 
character is a down arrow. If it is not a down arrow, control is passed to 
the CARRET routine at line 1270. If the character is a down arrow, a 
check is made to see if the last variable on the screen is being processed. 
If so, control is returned to the INPUT routine with no changes. If not, 
the cursor is moved down to the first position of the next variable. Con- 
trol is then passed to the INPUT routine. 

The first two lines of the CARRET routine check to see if the input 
character is a carriage return. If the character is not a carriage return, 
control is passed to the EQUAL routine at line 1530. If it is a carriage re- 
turn, a check is made to see if the cursor was in the first position of the 
variable. If so, control is passed to the DNARR routine, and the character 
is handled as a down arrow. If not, the number of blanks required to fill 
the remaining portion of the variable is calculated, and the remaining 
portion of the variable is filled with blanks. A check is then made to de- 
termine if the last variable on the screen was being processed when the 
key was pressed. If not, control is passed to the DNARR routine to move 
the cursor forward one variable. If so, control is passed to BEGIN, where 
the cursor is placed at position of the first variable. 

The first two lines of the EQUAL routine check to see if an equal sign 
was received. If not, control is passed to the CHAR routine at line 1820. 
If the character is an equal sign, the VARWK variable is set to 1 and the 
index register IX is loaded with the address of the BASIC pointer to the 
3-bytc description of the A$(l] variable in RAM. The cursor is then 
placed over position of the first variable on the screen. The A$(l) point- 
er consists of three values: the length, the lower address, and the upper 
address of A$(l). First, B is loaded with the length, and DE is loaded with 
the address. The variable is then moved from the screen to the memory 
designated by the BASIC pointer to hold A$[l). This process continues 
for the other variables on the screen until the last variable is completed. 
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Control is then passed back to the BASIC program through the Z80 RET 
instruction. 

The CHAR routine first checks to see if the cursor is at the last position 
of the variable. If so, control is then returned to the INPUT routine with 
no changes. If the cursor is not at the last position of the variable, the 
character is printed on the video screen and control returns to the IN- 
PUT routine. 

Lines 1970-2010 allocate memory for the variables used by the assem- 
bly-language program. 

BASIC Program Description 

The BASIC portions of the form fillout program (Program Listing 2) are 
located in subroutines 50000 and 60000 in the demonstration program. 
The subroutine at 50000 loads the assembly-language portion of the pro- 
gram into high memory. The assembly-language routine, in decimal 
values, is located in lines 50090-50420. The data in the demonstration 
program is for a 48K disk configuration. The subroutine at 50000 need 
only be run once at the beginning of the BASIC program. 

The subroutine at 60000 lakes two types of variables from the BASIC 
program and stores them in appropriate memory locations for use by the 
assembly-language program. N represents the total number of variables 
on the display. L(l) through L(N) indicate the allowable lengths of the N 
variables. The subroutine then expands the A$(l) variables to the maxi- 
mum lengths with line 60080 and derives the BASIC pointer to the A$( 1 ) 
3 byte description with the VARPTR command in line 60090. This deci- 
mal value is converted to a high and low memory address by lines 
601 10-60 120 and POKEd into memory by line 60130. The assembly-lan- 
guage program is then called with the USR command in line 60140. 
Lines 60040 and 60150 save the variables used by the subroutine and re- 
store these variables before exiting the subroutine. The only variables 
not available to the programmer are A$(I), L(I), N, Al, A2 f A3, A4, A5, 
and A6. As a programming aid, the subroutine also checks to see that no 
more than 32 variables have been used. If this condition is not met, the 
program halts at that point. 

Lines 100-230 set up the initial menu and load the assembly-language 
routine with a GOSUB 50000. Subroutine 1000 sets up the first display. 
Lines 1010 1100 print the display on the CRT. Line 1110 sets the num- 
ber of variables to six and sets their lengths. The GOSUB 60000 sets up 
the assembly-language variables and calls the USR routine. Line 1130 
converts the A$(I) variables returned into the appropriate program string 
variables. 

The subroutine at 2000 is similar to the subroutine at 1000 with a few 
differences. Line 2060 prints the NAME on the screen but uses an aster- 
isk delimiter to separate the prompt from the variable. The display con- 
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tains numeric variables in addition to string variables. Line 2140 con- 
verts the ASCII strings returned into numeric variables where appropri- 
ate and converts the remaining strings into the program string variables. 
The subroutine at 3000 illustrates another way to use the form fillout 
program. In this subroutine, the display is set up to include titles as well 
as prompts and protected variables. These demonstrate how the pro- 
gram ignores any data on the screen except the variables preceded by a 
colon and two blank spaces. 

Conversion to 16K/32K 

To convert the BASIC subroutines to run on a 16K or 32K TRS-80 with 
or without disks, the following lines must be substituted for the corre- 
sponding lines in the subroutines. For the 16K version, you must set 
memory size to 32449 before entering BASIC. For the 32K version, set 
memory size to 48833. Substitute the following lines for the 16K version: 

50010 Z = 32450 

50090 DATA 221, 33, 255, 127, 253, 33, 254, 127, 17, 222, 127 

50240 DATA 58, 221, 127 

50300 DATA 58, 221, 127 

50330 DATA 221, 42, 219, 127 

50370 DATA 58, 221, 127 

60050 Z- 32450 

Substitute the following lines for the 32K version: 

50010 Z=- 16702 

50090 DATA 221, 33, 255, 191, 253, 33, 254, 191, 17. 222, 191 

50240 DATA 58, 221, 191 

50300 DATA 58, 221, 191 

50330 DATA 221, 42, 219, 191 

50370 DATA 58, 221, 191 

60050 Z=- 16702 

Without Disk 

To use this program without disks, the only additional changes arc in 
lines 50030 and 60140. Be sure that you have changed the necessary 
lines if the memory size has been changed. In a 16K non-disk configura- 
tion, change these lines to read: 

50030 POKE 16526, 194: POKE 16527, 126 
60140 X = USRj X| 

In a 32K f non-disk configuration, change these lines to read: 

50030 POKE 16526, 194: POKE 16527, 190 
60140 X = USR(X] 

In a 48K, non-disk configuration, change these lines to read: 

50030 POKE 16526, 194: POKE 16527, 254 
60140 X = USR(X) 
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Program Listing 1. 

Assembly-language program loaded by the subroutine at 50000 in the demonstration BASIC 

program 

; ASSEMBLY LANGUAGE PORTION OP PORM-FILLOUT 

;WRITTEM BY : GARY LINDSEY 

; 1041 NOGALES AVENUE 

; PALM BAY, FLORIDA 32905 



FEC2 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 



FEC2 DD21FFFF 00180 

FEC6 FD21FEFF 00190 

00200 

00210 

00220 



FECA 11DEFF 
FBCD 21FF3B 
FED0 23 
FED1 7E 
FED2 FE3A 
FED4 20FA 
FED6 23 
FED7 23 
FED8 23 



00230 BEGIN 

00240 

00250 INC1 

00260 

00270 

00280 

00290 

00300 

00310 



FED9 FD360001 00320 

FEDD DD360000 00330 

00340 



FEE1 D5 
FEE2 FDE5 
FEE4 CD2B00 
FEE7 B7 
FEES FDE1 
FEEA Dl 
FEEB 2015 
FEED 4E 
FEEE 3E8F 
FEF0 77 
FEF1 C5 
FEF2 01EA00 
FEF5 CD6000 
FEES CI 
FEF9 71 
FEFA 01F000 
FEED CD6000 
FF00 18DF 



FF02 FE5B 
FF04 2020 
FF06 FD7E00 
FF09 FE01 
FF0B 28D4 
FF0D 2B 
FF0E 7E 
FF0F FE3A 
FF11 20FA 



00350 r== 

00360 t 

00370 INPUT 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 UPARR 

00590 

00600 

00610 

00620 

00630 DEC1 

00640 

00650 

00660 



ORG 


0FEC2H 


ID 


IX,POS 


LD 


IY, VARWK 



LD 

LD 

INC 

LD 

CP 

JR 

INC 

INC 

INC 

LD 

LD 



PUSH 

PUSH 

CALL 

OR 

POP 

POP 

JR 

LD 

LD 

LD 

PUSH 

LD 

CALL 

POP 

LD 

LD 

CALL 

JR 



DE 

1Y 

002BH 

A 

IY 

DE 

NZ, UPARR 

C(HL) 

A, 143 

(HL),A 

BC 

BC,0EAH 

0060H 

BC 

(HL),C 

BC,0F0H 

0060H 

INPUT 



SETS LOCATION OF PGM 
IX POINTS TO POSITION 
IY POINTS TO VARWK 



DE,LEN :DE POINTS TO LEN OF VARWK 

HL,3BFFH rHL= TOP OF VIDEO MEM-1 

HL rHL=*roP OF VIDEO MEM 

A,(HL) r LOAD A WITH VIDEO CHAR 

':' f CHECK IF A IS COLON 

NZ,INC1 fIF NOT COLON JP TO INC1 

HL r INCREMENT VIDEO POINTER 

HL rTO POS OF VARIABLE 

HL rAFTER THE COLON 

(IY),1 ; SETS VARWK TO 1 

(IX), ;SET POS TO 



SAVE LEN POINTER 

SAVE VARWK POINTER 

CALL SCAN KEYBOARD S/R 

OR A 

RESTORE VARWK POINTER 

RESTORE LEN POINTER 

IF A NOT JP TO UPARR 

SAVE CHAR IN C 

LOAD A WITH CURSOR CHAR 

PUT CURSOR ON SCREEN 

SAVE BC WHICH HOLDS CHAR 

LOAD BC WITH DELAY COUNT 

CALL DELAY ROUTINE 

RESTORE BC 

PUT CHAR ON SCREEN 

LOAD BC WITH DELAY COUNT 

CALL DELAY ROUTINE 

JUMP TO INPUT 



CP 5BH ;CHECK IF A IS UP ARROW 

JR N2,RTARR ;IF NOT JUMP TO RTARR 

LD A, (IY) jLD A WITH VARWK 

CP 1 ,-CHECK IF FIRST VARIABLE 

JR Z,INPUT :IF TRUE JP TO INPUT 

DEC HL ,-DECREMENT VIDEO POINTER 

LD A,(HL) ;LOAD A WITH VIDEO CHAR 

CP ' : ' ,-CHECK IF COLON 

JR NZ,DEC1 ;IF NOT COLON JP TO DEC1 

Program continued 
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FF13 2B 

FF14 7E 

FF15 FE3A 

FF17 20FA 

FF19 23 

FF1A 23 

FF1B 23 

FF1C FD3500 

FF1F DD360000 00750 

FF23 IB 

FF24 18BB 



00670 DBC2 

00680 

00690 

00700 

00710 

00720 

00730 

00740 



FF26 FE09 
FF28 200F 
FF2A 1A 
FF2B DD4600 
FF2E B8 
FF2F 28B0 
FF31 23 
FF32 DD3400 
FF35 18AA 

FF37 1891 



FF39 FE08 
FF3B 200E 
FF3D 3E00 
FF3F DD4600 
FF42 B8 
FF43 289C 
FF45 2B 
FF46 DD3500 
FF49 1896 



FF4B FE0A 
FF4D 201C 
FF4F FD4600 
FF52 3ADDFF 
FF55 B8 
FF56 2889 
FF58 23 
FF59 7E 
FF5A FE3A 
FF5C 20FA 
FF5E 23 
FF5F 23 
FP60 23 



00760 

00770 

00780 

00790 

00800 

00810 RTARR 

00820 

00830 



DEC 

LD 

CP 

JR 

INC 

INC 

INC 

DEC 

LD 

DEC 

JR 



00850 

00860 

00870 

00880 

00890 

00900 ; 

00910 XFERl 

00920 

00930 

00940 

00950 LTARR 

00960 
00970 

00980 

00990 

01000 

01010 

01020 

01030 XFER2 

01040 

01050 

01060 

01070 DNARR 

01080 

01090 DNARR1 

01100 

01110 

01120 

01130 INC2 

01140 

01150 

01160 

01170 

01180 

01190 



CP 
JR 

LD 
LD 
CP 
JR 

INC 
INC 
JR 

JR 



CP 

JR 

LD 

LD 

CP 

JR 

DEC 

DEC 

JR 



FF61 DD360000 01200 



FF65 13 
FF66 FD3400 
FP69 18DE 



FF6B FE0D 



CP 
JR 

LD 

LD 

CP 

JR 

INC 

LD 

CP 

JR 

INC 

INC 

INC 

LD 

INC 

INC 

JR 



01210 
01220 
01230 
01240 
01250 
01260 
01270 CARRET CP 



HL 

A,(HL) 
i . < 

NZ,DEC2 
HL 
HL 
HL 

(IY) 

(IX), 

DE 

INPUT 



09H 

NZ, LTARR 

A, (DE) 

B,(IX) 

B 

Z, INPUT 

HL 

(IX) 

INPUT 

BEGIN 



08H 

NZ, DNARR 

A,0 

B,(IX) 

B 

Z, INPUT 

HL 

(IX) 

INPUT 



0AH 

NZ, CARRET 

B,(IY) 

A,(NUM) 

B 

Z, INPUT 

HL 

A, (HL) 

N2,INC2 
HL 
HL 
HL 

(IX), 
DE 

(IY) 
XFER2 



DECREMENT VIDEO POINTER 

LOAD A WITH VIDEO CHAR 

CHECK IF COLCH 

IF NOT COLON JP TO DEC2 

INCREMENT VIDEO POINTER 

TO PCS OF VARIABLE 

AFTER COLON 

DECREMENTS VARWK 

SET PCS TO 

DE NOW POINTS TO NEW LEN 

JUMP TO INPUT 



CHECK IF A IS RT ARRCW 
IF NOT JUMP TO LTARR 
LD A WITH LENGTH OF VAR 
LD B WITH POSITION 
COMPARE LEN WITH PCS 
IF POS=LEN THEN INPUT 
INCREMENT VIDEO POINTER 
INCREMENTS PCS 
JUMP TO INPUT 

;JUMP TO BEGIN 



CHECK IF A IS LT ARROW 
IF NOT JP TO DNARR 
LOAD A WITH 
LOAD B WITH PCS 
COMPARE PCS WITH 
IF POS=0 THEN INPUT 
DECRMENT VIDEO POINTER 
DECREMENTS POS 
JUMP TO INPUT 



0DH 



CHECK IF A IS DNARR 
IF NOT JP TO CARRET 
LOAD B WITH VARWK 
LOAD A WITH NUM 
COMPAR VARWK WITH NUM 
IF VABWK=4JUM THEN INPUT 
INCREMENT VIDEO POINTER 
LOAD A WITH VIDEO CHAR 
CHECK IF COD3N 
IF NOT COLON JP TO INC2 
INCREMENT VIDEO POINTER 
TO POS OF VARIABLE 
AFTER COLON 
LOAD POS WITH ZERO 
DE POINTS AT NEW LEN 
INCREMENTS VARWK 
JP TO INPUT VIA XFER2 



jCHECK IF A IS CAR RET 
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FF6D 


2021 


01280 


JR 


NZ, EQUAL 


IF NOT JUMP TO EQUAL 


FP6F 


DD7E00 


01290 


LD 


A, (IX) ; 


LOAD A WITH POSITION 


FF72 FE00 


01300 


CP 


r 


COMPARE POS TO ZERO 


FF74 


28D9 


01310 


JR 


Z,DNARR1 


IF POS=0 THEN CNARR1 


FF76 


47 


01320 


LD 


B,A 


LOAD B WITH POS 


FF77 


AF 


01330 


XOR 


A ? 


ZERO A REGISTER 


FF78 


1A 


01340 


LD 


A,(DE) ; 


LOAD A WITH LENGTH 


FF79 


90 


01350 


SUB 


B ; 


A= # OF BLANKS TO END 


FF7A 3C 


01360 


INC 


A 


ADD ONE TO BLANKS 


FF7B 


2B 


01370 


DEC 


HL 


DECREMENT VIDEO POINTER 


FF7C 0620 


01380 


LD 


B.20H ; 


LOAD B WITH BLANK CHAR 


FF7E 


23 


01390 CRl INC 


HL ; 


INCREMENT VIDEO POINTER 


FF7F 


70 


01400 


LD 


(HL),B r 


WRITE BLANK TO SCREEN; 


FF80 


3D 


01410 


DEC 


A ; 


DECEREMEOT # OF BLANKS 


FF81 


20FB 


01420 


JR 


NZ.CR1 


IF BLANKSO0 THEN CRl 


FF83 


FD4600 


01430 


LD 


B,(IY) ; 


LOAD B WITH VARWK 


FFB6 


3ADDFF 


01440 


LD 


A, (NUM) t 


LOAD A WITH NUM 


FF89 


B8 


01450 


CP 


B : 


COMPARE VARWK WITH NUM 


FF8A 20C3 


01460 


JR 


NZ,DNARR1 r 


IF VAWKONUM THEN DNARR1 


FF8C 


1SA9 


0X470 
01480 ; 


JR 


XFER1 t 


JUMP TO BEGIN VIA XFER1 


FF8E 


18B9 


01490 XFER3 JR 


XFER2 


RELATIVE JP XFER INST 






01500 ; 
01510 ; 
01520 ; 


















FF90 


FE3D 


01530 I 


X3JAL CP 


' = ■ : 


CHECK IF A IS EQUAL 


FF92 


2034 


01540 


JR 


NZ,CHAR ; 


IF NOT JP TO CHAR 


FF94 


FD360001 


01550 


LD 


(IY).I ; 


SET VAFWK TO 1 


FF98 


DD2ADBFF 01560 


LD 


IX, (PTR) , 


IX=PTR TO BASIC STR PTR 


FF9C 


21FF3B 


01570 


LD 


HL.3BFFH 


HL=TOP OF VIDEO MEM-1 


FF9F 


23 


01580 ] 


:nc3 inc 


HL 


HL^TOP OF VIDEO MEM 


FFA0 


7E 


01590 


LD 


A,(HL) 


LOAD A WITH CHARACTER 


FFA1 


FE3A 


01600 


CP 


■ : ' 


CHECK IF COLON 


FFA3 


20FA 


01610 


JR 


NZ,INC3 


IF NOT JP TO INC3 


FFA5 


23 


01620 


INC 


HL 


INCREMENT VIDEO POINTER 


FFA6 


23 


01630 


INC 


HL 


TO POS OF VARIABLE 


FFA7 


23 


01640 


INC 


HL 


AFTER COLON 


FFA8 DD4E00 


01650 


LD 


C,(IX) 


C LOADED WITH BASIC LEN 


FFAB 


0600 


01660 


LD 


B,0 


B=0 


FFAD C023 


01670 


INC 


IX 


IX= PTR TO LO VAR ADDRESS 


FFAF DD5E00 


01680 


LD 


E,(IX) 


E = LO ADDRESS OF VAR 


FFB2 


DD23 


01690 


INC 


IX 


IX= PTR TO HI VAR ADDRESS 


FFB4 DD5600 


01700 


LD 


D,(IX) 


D = HI ADDRESS OF VAR 


FFB7 


EDB0 


01710 


LDIR 




MOVE VIDEO TO VAR MEM 


FFB9 


3AEDFF 


01720 


LD 


A, (NUM) 


■AfTOTAL # OF VARIABLES 


FFBC 


FD4600 


01730 


LD 


B,(IY) 


•B=VAR WORKED 


FFBF 


B8 


01740 


CP 


B 


■CHECK IF LAST VARIABLE 


FFC0 C8 


01750 


RET 


Z 


■RET TO BASIC IF LAST 


FFC1 


FD3400 


01760 


INC 


(IY) 


•INCREMENT VAHtfK 


FFC4 


DD23 


01770 


INC 


IX 


■PTR TO NEXT A? VARIABLE 


FFC6 


18D7 


01780 
01790 
01800 
01810 


JR 


INC3 


-START NEXT VARIABLE 












FFC8 


F5 


01820 


CHAR PUSH 


AF 


;SAVE CHARACTER IN AF 


FFC9 


ED4600 


01830 


LD 


B, (IX) 


;LOAD B WITH POS 


FFCC 


1A 


01840 


LD 


A,(DE) 


,-LOAD A WITH LEN 


FFCD 


B8 


01850 


CP 


B 


rCOMPARE LEN WITH POS 


FFCE 


2003 


01860 


JR 


NZ,START1 


I IF LENOPOS JP TO STARTl 


FFD0 


Fl 


01870 


POP 


AF 


;RESTORE CHAR IN AF 


FFD1 


18BB 


01880 


JR 


XFER3 


;JUMP TO INPUT VIA XFER3 



Program continued 
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FFD3 Fl 


01890 START1 


POP 


AF 


.-RESTORE CHAR IN AF 


FFD4 77 


01900 


LD 


(HL),A 


jPUT CHAR ON SCREEN 


FFD5 DD3400 


01910 


INC 


(IX) 


; INCREMENT POS 


FFD8 23 


01920 


INC 


HL 


; INCREMENT VIDEO POINTER 


FFD9 18B3 


01930 
01940 r 


JR 


XFEB3 


;JUMP TO INPUT VIA XFER3 




01950 ; — 

01960 ; 








FFDB 0000 


01970 PTR 


DEFW 





;PTR TO BASIC VAR PTR 


FFDD 00 


01980 NUM 


DEFB 





;NUMBER OF VARIABLES 


0020 


01990 LEN 


DEFS 


32 


jOP TO 32 VAR LENGTHS 


FFFE 00 


02000 VAKWK 


DEFB 





; # OF VAR BEING WORKED 


FFFF 00 


02010 POS 


DEFB 





; INDICATES POS WITHIN VAR 


0000 


02020 


END 




rEND OF ASSY LANGUAGE PGM 


00000 TOTAL 


ERRORS 









Program Listing 2. 

Demonstration BASIC program illustrating the use of the subroutines at 50000 and 60000 to 
implement the form fillout technique 



10 REM 

20 REM 

30 REM DEMONSTRATION OF FORM-FILLOUT PROGRAM 

40 REM WRITTEN BY: GARY S. LINDSEY 

50 REM 1041 NOGALES AVENUE 

60 REM PALM BAY, FLORIDA 32905 

70 REM 

80 RE M ' " i- T-. —.i ...,-, 

90 REM 

100 CLEAR 500 

110 DIM A(32),A$(32),L(32) 

120 GOSUB 50000 

130 CLS 

140 PRINT TAB{20) "FORM FILLOUT DEMONSTRATION" 

150 PRINT 

160 PRINT TAB(10) "1 

170 PRINT TAB (10) "2 

180 PRINT TAB(10) "3 

190 PRINT 

200 INPUT "ENTER TOUR CHOICE: 

210 IF C<1 OR C>3 THEN 130 

220 ON C GOSUB 1000,2000,3000 

230 GOTO 130 

240 REM 

250 RE M 



PROCESS PERSONAL DATA" 
PROCESS WORK HISTORY DATA" 
PROCESS RECREATIONAL DATA" 



'fC 



260 REM 

1000 REM FIRST SCREEN FOR DEMONSTRATION OF FORM FILLOUT 

1010 CLS 

1020 PRINT TAB(25) "DISPLAY 1" 



1030 PRINT 

LDS" 

1040 PRINT 

1050 PRINT "NAME: 

1060 PRINT 



DEMONSTRATES DATA ENTRY/EDIT WITHOUT PROTECTED FIE 



";N$;TAB(30) ? "DATE OF BIRTH: "rB$ 



STREET ADDRESS 
1070 PRINT "CITY/STATE 
1080 PRINT "PHONE NUMBER 
1090 PRINT 



ADS 

C$ 

P? 
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1100 PRINT "OCCUPATION: ";0$ 

1110 N=6:L(1)=20:L(2)=12:L(3)=30:L(4)=30:L(5)=15:L(6)=30 

1120 GOSUB 60000 

1130 N$^(1):B$^(2):AD$^A$(3):C$=A$(4):P$^A$(5):0$=A$(6) 

1140 RETURN 

1150 FEW 

1160 REM . ■ . i := :=; = = 

1170 REM 

2000 REM SECOND SCREEN FOR DEMONSTRATION OF FORM FILLOUT 

2010 cls 

2020 PRINT TAB(25) "DISPLAY 2" 

2030 PRINT TAB( 5) "DEMONSTRATES DATA ENTRY/EDIT WITH PROTECTED FI 

ELDS" 

2040 PRINT TAB( 5)" INCLUDING NUMERIC VALUES" 

2050 PRINT 

2060 PRINT "NAME * ";N$ ;TAB( 30) ; "EMPLOYEE NUMBER: ";E 

2070 PRINT 

2080 PRINT "HIRE DATE: ";HD$ 

2090 PRINT "SECTION NUMBER: ";S 

2100 PRINT "YEAR OF DEGREE: ";Y 

2110 PRINT "SALARY: ";SA 

2120 N=5:L(1)=6:L(2)=10:L(3)=5:L(4)=5:L(5)=6 

2130 GOSUB 60000 

2140 E=VAL(A$(l)):HD$=A$(2):S=VAL(A${3)):Y=iVAL(A$(4)):SAFVAL(A$( 

5)) 

2150 RETURN 

2160 REM 

2170 RE M -.,■■■— . 

2180 REM 

3000 REM THIRD SCREEN FOR DEMONSTRATION OF FORM-FILLOUT 

3010 CLS 

3020 PRINT TAB(25) "DISPLAY 3" 

3030 PRINT " DEMONSTRATES FORMATTED SCREEN WITH EXTRA COMMENTS/ 

TITLES" 

3040 PRINT TAB(20) "PERSCKAL DATA" 

3050 PRINT 

3060 PRINT "NAME* "?N$;TAB(30) ;"PHONE NUMBER* "rP$ 

3070 PRINT "ADDRESS* "; TAB ( 10 ) ;AD$ 

3080 PRINT TAB(10);C? 

3090 PRINT 

3100 PRINT TAB(20) "RECREATIONAL DATA" 

3110 PRINT 

3120 PRINT "HOBBIES" ;TAB( 10); "NUMBER 1: ";H1$ 

3130 PRINT TAB(10)"NUMBER 2: ";H2$ 

3140 PRINT "SKILLS"? TAB (10) "NUMBER 1: ";S1$ 

3150 PRINT TAB (10) "NUMBER 2: ";S2$ 

3160 N=4:L(1)=20:L(2)=20:L(3)=20:L(4)=20 

3170 GOSUB 60000 

3180 H1$=A$ ( 1) :H2$=A$ (2) :S1?=A$ (3 ) :S2?=fi$ (4) 

3190 RETURN 

3200 REM 

3210 REM ^- ■ 

3220 REM 

50000 REM SETS Z=BEGINNING OF USR PROGRAM 

50010 Z=-318 

50020 REM SETS USR PROGRAM ENTRY POINT 

50030 DEFUSRCHZ 

50040 REM POKES USR ASSEMBLY LANGUAGE PROGRAM INTO MEMORY 

50050 RESTORE: FOR I=Z TO Z+280 

50060 READ X:POKE I,X 

50070 NEXT I 

Program continued 
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50080 RETURN 

50090 DATA 221, 33, 255, 255, 253, 33, 254, 255, 17, 222, 255 

50100 DATA 33, 255, 59, 35, 126, 254, 58, 32, 250, 35 

50110 DATA 35, 35, 253, 54, 0, 1, 221, 54, 0, 

50120 DATA 213, 253, 229, 205, 43, 0, 183, 253, 225, 209 

50130 DATA 32, 21, 78, 62, 143, 119, 197, 1, 234, 

50140 DATA 205, 96, 0, 193, 113, 1, 240, 0, 205, 96, 

50150 DATA 24, 223, 254, 91, 32, 32, 253, 126, 0, 254, 1 

50160 DATA 40, 212, 43, 126 

50170 DATA 254, 58, 32, 250, 43, 126, 254, 58, 32, 250 

50180 DATA 35, 35, 35, 253, 53, 0, 221, 54, 0, 

50190 DATA 27, 24, 187, 254, 9, 32, 15, 26 

50200 DATA 221, 70, 0, 184, 40, 176, 35, 221, 52, 

50210 DATA 24, 170, 24, 145, 254, 8, 32, 14, 62, 

50220 DATA 221, 70, 0, 184, 40, 156, 43, 221, 53, 

50230 DATA 24, 150, 254, 10, 32, 28, 253, 70, 

50240 DATA 58, 221, 255 

50250 DATA 184, 40, 137, 35, 126, 254, 58, 32, 250, 35 

50260 DATA 35, 35, 221, 54, 0, 0, 19, 253, 52, 

50270 DATA 24, 222, 254, 13, 32, 33, 221, 126, 

50280 DATA 254, 0, 40, 217, 71, 175, 26, 144, 60, 43 

50290 DATA 6, 32, 35, 112, 61, 32, 251, 253, 70, 

50300 DATA 58, 221, 255 



50310 DATA 184, 


32, 


195, 24, 169, 24, 185 


50320 DATA 254, 


61, 


32, 52, 253, 54, 0, 1 


50330 DATA 221, 


42, 


219, 255 


50340 DATA 33, 


255, 


59, 35, 126, 254, 58 


50350 DATA 32, 


250, 


35, 35, 35, 221, 78, 0, 6, 0, 221, 35 


50360 DATA 221, 


94, 


0, 221, 35, 221, 86, 0, 237, 176 


50370 DATA 58, 


221, 


255 


50380 DATA 253, 


70, 


0, 184, 200 


50390 DATA 253, 


52, 


0, 221, 35, 24, 215 


50400 DATA 245, 


221 


, 70, 



50410 DATA 26, 184, 32, 3, 241, 24, 187, 241, 119 

50420 DATA 221, 52, 0, 35, 24, 179 

50430 REM 

50440 RE M 



50450 REM 

60000 REM POKES NECESSARY NUMBER (N), LENGTHS (L(I)), AND 

60010 REM THE POINTER TO A${1) INTO MEMORY FOR USE BY 

60020 REM THE ASSEMBLY LANGUAGE POFTICN OF THE PROGRAM. 

60030 IF N>32 THEN PRINT "TOO MANY VARIABLES": END 

60040 Al=X:A2=I:A3=*iA4=L:A5=V:A6=Z 

60050 Z=-318 

60060 X=Z+283:POKE X,N;X=X+1 

60070 FOR 1=1 TO N:POKE X,L(I) sX=X+l :NEXT I 

600Q0 FOR 1=1 TO N:A$(l)=STRING$(L(l), " "):NEXT I 

60090 H=0:L=«:X=iVARPTR(A$(l)) 

60100 IF X<0 THEN X=X+65536 

60110 H=INT(X/256) 

60120 L=X-H*256 

60130 POKE &f281,L:POKE Z+282,H 

60140 X<tSR0(X) 

60150 X=A1:I=A2:H=A3:L=A4:V=A5:Z=A6 

60160 RETURN 
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Idiosyncracies in 
Radio Shack's 
BASIC 

by John Blommers System Requirements: 

Model I 

Level II BASIC 

or Dish BASIC 

16KRAM 



Radio Shack's Model I Disk BASIC has some bugs and idiosyncracies 
you should know. This chapter covers some of them, as well as ways 
to avoid numerical errors in solving problems. 

The IF-THEN statement does not require the word THEN, provided 
there is no ambiguity in the statement. The following lines work properly: 

100 A=l : B = A :C=1:D = 2:I = 9:J = I 

110 IF A = B IF COD IF I=J PRINT "HELLO" 

Since the three comparisons are all true, the word HELLO is printed. 

When a comparison statement is executed, it results in a value which 
is either true ( - 1) or false (0). For example: 

99 INPUT r, Y,Z";Y,Z 

100 X - Y = Z ' sets X to if Y isn't equal to Z 

101 PRINT X ' sets X to - 1 if Y equals Z 

102 GOTO 99 

Compound statements work on a single line, but they also work with the 
IF-THEN-ELSE statement: 

100 IF 1 = 2 THEN A = B:C = D:E = F ELSE J = K:L=M:G = 71 
BASIC allows the user to define functions, usually at the beginning of 
the program. If a run-time error occurs as a result of a problem in the 
function definition statement, it is the statement calling the function- 
not the statement that defined it— that is flagged as the incorrect state- 
ment. 

100 DEFFNA[X) = SQRT|X) 
200 PRINT FNA|4) 
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This program causes a syntax error in line 200; however, the true error is 
in line 100 (the function for square root is SQR, not SQRT-that is the ac- 
tual error). 

To suppress the line feed in a PRINT statement, you place a semicolon 
after the last variable. This fails to work at location 1023, the last location 
on the screen. 

100 PRINT @ 1023,"*"; ' still scrolls the screen. 

BASIC occasionally interprets mathematically identical values differ- 
ently. The numbers 3328D0 and 33.28D0* 100D0 should be identical; 
however, the following statement results in a nonzero answer: 

100 PRINT 3328D0-33.28D0*10OD0 

The result is -5.684341886080802D- 14. The multiplication produces a 
round-off error in the last digit of the double-precision answer. 
Sometimes BASIC can be forced to misinterpret a statement. 

110 X=1.D0 : Y = 2.D0 

120 PRINT X + 0D-[Y+0D) ' will printtwo numbers. 
1 2 

The confusion arises because the double-precision number 0D should be 
written 0D0 to help BASIC continue with the arithmetic. Because it 
thinks that X + is one variable and the D - (Y + 0D) is a second variable, 
it prints two numbers. It prints the numbers 3 and 2 for the following: 

100 PRINT 1+2X + X 

The following PRINT statement prints a - 1: 

100 PRINT 1-1 

This happens because 1 = 1 is a true statement and, therefore, has the 
value - 1 assigned to it. 

The VAL function converts a string into a number only if the first char- 
acter is plus, minus, or a digit from zero to nine. This causes the follow- 
ing, otherwise legal conversions to fail and return a zero value: 

100 PRINT VAL(" -32") ' leading blank 

110 PRINT VAL["&HFF") ' in DOS BASIC should give 255 

120 ' but gives instead !! 

Another bug in the VAL function is that it attempts to convert a long nu- 
meric string, even though the extra digits cannot contribute to the preci- 
sion of the answer. The resulting calculations in BASIC cause an over 
flow or underflow, giving a run-time error. Consider the following: 

99 CLEAR 100 

100 PRINT VAL|"." + STRING$[39,"7"]| 

This program results in an OV error when you use 39, but it works with 
38. BASIC supports exponents from - 38 to +38. 

When typing in DATA statements, you may inadvertently omit a 
number, leading to unexpected results, because no error message is gen- 
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erated by BASIC to tell you it didn't see any data between the commas. 
The variable you were trying to READ into the program is set to zero 
when this happens. Consider the following program: 

100 FOR 1= 1 TO 10 ; READ A : PRINT A; : NEXT : END 
110 DATA 1,2,3,,, 6, 7,8,9, 10 ' 4TH & 5TH ARE MISSING 

The result of this program is 12300678910. 

The word THEN need not be used in the IF-THEN-ELSE statement, as 
shown in the following program: 

700 INPUT "ENTER A STRING ";A$ 

800 IF A$= "2000" ELSE PRINT "NOT 2000" 

900 IF A$ = "1000" PRINT "IT'S 1000" ELSE 

PRINT "NOT 1000" 
990 GO TO 700 

Since BASIC stores real numbers using four bytes in binary notation, 
certain arithmetic operations give rise to tiny errors. For example: 
100 A=20.01 : B=20 : PRINT A-B 'prints .0100002. 

It is true that 20.01-20.00 = 0.01, but because BASIC retains only about 
seven to eight digits of precision, subtracting nearly equal real numbers 
results in a lot of garbage digits. This result is not peculiar to the TRS-80, 
but applies to many computers. 

It is not generally known that the file input statement INPUT #1, vari- 
ablelist can be expressed more generally as INPUT #N,variablelist, 
where N is - 1 or - 2 for cassette port 1 or 2. This can be used as follows: 

100 INPUT "WHICH CASSETTE PORT (1 OR 2) ";N 

110 IF NOl AND N<>2 THEN 100 ELSE N= -N 

120 INPUT #N,A$ 

130 PRINT "THE DATA IS ••*" A$ "****" 

140 GO TO 100 

In DOS BASIC, N is a positive number that refers to the number of the 
file buffer. 

BASIC calculates X raised to the Y power internally by the formula 
EXP(Y*LOG(X)|. It does so even if both X and Y are integers. Try raising 
2 to the thirteenth power. The answer is 8192.01 instead of 8192. If you 
know in advance that the calculation should result in an integer, you can 
obtain the correct result by adding 0.5 to the calculation and using the 
FIX function to create an integer. 

BASIC generally allows you to put spaces wherever you want, ignor- 
ing them unless they appear inside quotation marks. This is not true for 
the TAB function. The following program gives a SUBSCRIPT OUT OF 
RANGE message: 

100 PRINT TAB (20) "HELLO" : END 
This happens because the token for TAB function represents the charac- 
ters TAB(, rather than the characters TAB. BASIC sees the TAB (20) and 
assumes that this function refers to the twentieth element of the array 
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TA. Since the default dimension of all arrays is 10, BASIC gives you an 
error message. 

BASIC prints only six significant figures of a number, even if you use 
PRINT USING "#.############", as shown in the following program: 

100 X=l/3 
110 Y= 0,333333 
120 PRINT X,Y 
130 IF X = Y PRINT 
140 IF XOY PRINT 



X AND Y ARE EQUAL " 
"X AND Y ARE UNEQUAL" 



This prints the following: 

0.333333 



0.333333 
X AND Y ARE UNEQUAL 

Only if Y = 0.333 333 33 is entered will X and Y be considered equal by 
BASIC. 

The built-in math functions, such as SIN(X), return single-precision re- 
sults regardless of the precision of the argument X. If X is less than 100, 
the SIN function returns an answer correct to at least five decimal 
places. For X near 1,000,000, the SIN function returns about one digit of 
accuracy, but for X greater than 100,000,000, the value is returned. 
The SIN of 1E7 wastes all seven significant digits in specifying the input 
angle. Here is a summary of results: 



. X (in radians) 



SIN(X) 



CORRECT RESULT (6-digit) 



100 


-0.506368 


- 0.506366 


10 000 


-0.30566 


-0.305614 


1 000 000 


-0.382683 


-0.349994 


10 000 000 


0,707107 


0.420548 


100 000 000 





0.931639 


.11 000 000 000 





0.0681113 



The solution to this inaccuracy with the trigonometric functions is to re- 
compute the argument in double precision by subtracting multiples of 
two times pi. The SIN of the remainder should be fairly accurate. For ex- 
ample, run the following program: 

100 DEFDBLA-X 

110 PI = 3. 14159265358979323846 
120 INPUT "X= ";X 



' variables double precision 
' accurate, eh? 
' this is the argument 
' how many unit circles 
' # unit circles to remove 
' fraction of unit circle left 
' reduced argument 
' accurate result desired 
= "Y ' ok. print answer! 

' let the human weary itself 

Printing out the intermediate values X1,XX,X2, and X3 lets the pro- 
grammer see what is happening at each stage. 



130 X1 = X/(2.D0*PI) 
140 XX = FIX|X1] 
150 X2 = X1-XX 
160 X3 = X2*2.D0*PI 
170 Y = SIN(X3) 
180 PRINT "SIN("X") 
190 GOTO 120 
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The SQR function, while accurate to seven digits, may not return the 
exact answer. The following program line prints out the word INEXACT 
if the answer isn't exact: 

100 IF5 = SQR(25) PRINT "EXACT" ELSE 
PRINT "INEXACT" 
There are many perfect squares for which the SQR function gives an in- 
exact result. However, a simple formula based on Newton's Method 
makes the square root exact, as shown in line 140 below: 

110 INPUT "ENTER A NUMBER "; N 

120 X = SQR|N) 

130 PRINT "FIRST ESTIMATE IS REALLY" CDBL|X] 

140 Z = (X + N/X)/2 ' one Newton iteration 

150 PRINT "SECOND ESTIMATE IS REALLY" CDBL(Z) 

160 GO TO 1 10 

PRINT SQR(25} prints out a 5 because the TRS-80 shows only six digits. 
Other numerical oddities: 

PRINT 100000+1 prints 100001 

PRINT 1000000+1 prints IE + 06 

PRINT 10000000+1 prints 10000001 

But 

PRINT CDBL( 100000+1| prints 100001 
PRINT CDBL( 1000000+1) prints 1000001 
PRINT CDBL[1 0000000+ 1) prints 10000001 

The TRS-80 stores single-precision numbers with four bytes, providing 

seven to eight digits of precision. 
Repeatedly adding 0.1 eventually yields an error in the sixth digit. 

100 FOR 1= 1 TO 20 STEP 0.1 

110 PRINT I; 

120 NEXT I ' results in the following segment 1 

7.6 7.7 7.79999 7.89999 7.99999 8.09999 8.2 8.3 8.4 .... 

This happens because 0. 1 cannot be represented exactly : 

PRINT CDBL(O.l) ' yields 0.1000000014901161. 

On general principle, when accumulating many numbers, do the arith- 
metic in double precision and convert the final result to single precision 
as required: 

110 FOR 1= 1 TO 200 STEP 1 ' unit stepsize! 

120 sum# = sum# + o.;do 

120 SUM#=SUM# + 0.1D0 

130 NEXT 

140 PRINT SUM# GIVES 20.00000000000001 

You should never compare real numbers for equality. Compare num- 
bers within the precision possible on the computer, using the following 
technique: 

100 TL= IE -7 ' seventh digit of precision 
110 INPUT "ENTER X AND Y ";X,Y 
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120 IF ABS( (X- Y)/Y] < = TL PRINT "EQUAL" 

ELSE PRINT "UNEQUAL" 

If Y is equal to 0, modify the test by removing the division by Y in line 
120. If X and Y are the result of other computer calculations, with only 
five significant digits, then TL = 1 E - 5 is appropriate for the comparison. 

Sometimes formulas from handbooks, textbooks, or articles are pro- 
grammed directly without regard to the numerical difficulties that may 
be encountered. In general, whenever a formula subtracts two numbers, 
there is a loss of accuracy. 

Consider the subtraction of nearly equal numbers. Suppose two sin- 
gle-precision numbers are equal in five places. The difference has only 
two significant figures. For example: 

1234.567 
- 1234,523 



.0440674 where 0674 = garbage digits 

44 = two significant figures 

Now consider the quadratic formula: 

X = 1-B + SQR(B«B-4*A*C))/|2*A] 
The formula loses accuracy when 4* A*C is small compared with B*B. 
The resulting square root almost equals B, so that the difference in the 
numerator of the formula causes a loss of accuracy. To correct this, use 

the formula: 

X=-2*C/| B + SQR(Bq;B-4*A*C) ) 

A second way to lose accuracy is to add up a mixture of large and small 
numbers. If possible, sort the numbers in ascending order so that all the 
small numbers can be summed accurately before adding the remaining 
large numbers. 

Multiplication and division do not produce serious arithmetic errors, 
except that the answers are truncated to seven or eight significant digits. 
Therefore, the following lines: 

100 X=l/ll : PRINT X,CDBL(X) 
110 X = 1 1 * X : PRINT X,CDBL(X) 

produce 

.0909091 .09090909361839295 

1 1 

One divided by 1 1 equals 0.0909090909090909 . . . , an infinitely repeat- 
ing decimal number. Its base 2 representation also repeats, so any at- 
tempt to store this number with a limited number of bytes will be inex- 
act. Only numbers such as 0.5, 0.25, 0.375, 0.125, and 0.0625, which are 
all sums of negative powers of 2, can be represented exactly in a comput- 
er which does base 2 arithmetic. Therefore, the statement PRINT 
CDBL(0.0125) prints out 1.249999972060323D-3. 
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Some formulas are sensitive to small changes in input values. For ex- 
ample, the equation of a line is Y = M* X + B, where M is the slope of the 
line, and B is the y-axis intercept of the line. Suppose the slope is very 
small, say IE- 6, and B is - 1. The line crosses the x-axis at X= -B/M = 
1,000,000. If B is changed to - 1.001, a change of only 0.001, X becomes 
1,001,000 (a change of 1000). The reason for the sensitivity is geometric- 
ally clear, but there are many other problems, such as curve-fitting, 
which are called ill-conditioned. The only way to cope with them in a 
program is to study the program outputs for extreme sensitivity to 
changes of the input values. To minimize the effects of single-precision 
arithmetic on such outputs, using double-precision arithmetic may help. 
In the above problem, if B was computed from other values, using a for- 
mula which included the subtraction of nearly equal numbers, the re- 
sulting X value would be very inaccurate. 

In many statistical packages, the average (or mean) and standard devi- 
ation are computed after all the data has been input and converted to 
various sums, as follows: 

90 DEFSNGA-Z keep everything single precision 

100 READ N 'number of data points 

110S = 0:SS = 'zero these sums 

120 FOR 1=1 TON 

130 READ X read in an input value 

140 S = S+X 'sum of the data points 

150 SS = SS+X*X 'sum of squares of data points 

160 NEXT1 

170 M = S/N 'mean of the data points 

180 SD = SQR|(SS-S»S/N)/(N-1)) 'standard deviation 

190 PRINT "MEAN=" CDBL(M)) " STND DEV = " SD 

200 DATA 3 

210 DATA 6666123, 6666246, 6666369 

220 END 

The program prints out MEAN = 6666246 STND DEV = 0. The correct 
answers are MEAN =6666246 STND DEV = 123. The arithmetic error 
occurs in line 180, where nearly equal quantities are subtracted, losing 
most of the seven significant figures. There are two solutions to this 
problem. You can convert all the variables to double precision or you 
can rewrite the program based on an alternative method of calculating 
mean and standard deviation: 

100 DEFSNG A - Z 'all single precision 

1 10 READ N 'number of data points 

120 S = : SS = 'zero the sums 

130 FOR 1 = 1 TO N 'process n inputs 

140 READ X 'read in a data point 

150 S=S+ X 'form only the sum of the points 

160 NEXT I 

1 70 M = S/N ' m ean of the points 

180 RESTORE 'reset the pointer to the data 

190 READ N 'input number of points 
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200 FOR 1 = 1 TO N 'process N inputs again 

210 READ X 'read A point 

220 SS = SS + (X - M| * (X - M) ' sum of squared diff from mean 

230 NEXT I 

240 SD = SQR|SS/|N-1|| 

250 PRINT "MEAN = "M " STND DEV =" SD 

260 DATA 3 

270 DATA 6666123,6666246, 6666369 

280 END 
The following program calculates the best line through a set of N given 
points. It too suffers from arithmetic errors (in lines 200 and 210). The 
correct answers are M = 1 and B= - 660,000. The program produces the 
values 1.52588E-5 and -10.1624: 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 



DEFSNG A-Z 
READN 
XY=0 : SX=0: 
FOR 1 = 1 TO N 
READ X,Y 
XY = XY + X*Y 
SX = SX + X 
SY = SY + Y 
S2=S2 + X*X 



' let all be single precision 
'N = number of point pairs 
SY = : S2 = 'zero these sums 
'process N points 
'read a point pair 
'sum of X*Y products 
'sum of the X values 
sum of the Y values 
sum of X squared values 



NEXT1 

M = [XY - SX*SY/N|/[S2- SX*SX/N| 

B = (SY-M*SX)/N 

PRINT "THE BEST LINE THROUGH "N; 

PRINT "DATA POINTS IS : Y= ' M "-X + " B 

STOP 

DATA 3 

DATA 665999, - 1 , 666000,0, 666001 , 1 

If the DATA in line 260 were 999,-1, 1000,0, 1001,1, the program 
would correctly calculate M = 1 and B = - 1000. 
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The Hidden Sort 
Routine 

by Tom Mueller System Requ j re ments: 

Model I, II, or HI 

Disk BASIC 

16KRAM 

One disk drive 



You can sort numbers at incredible speeds using a machine-language 
routine already built into your TRS-80. All you have to do is fool the 
computer into thinking the numbers are line numbers in a program. It 
already has a BASIC sort function for line numbers, designed to allow 
the insertion of program lines. If you have a disk drive, you can easily 
adapt this ability to sorting whole numbers between and 65,535. 
Duplicate numbers are lost, because BASIC does not allow a program to 
have identical line numbers. 

Program Listing 1 generates 100 random numbers and saves them to 
disk in ASCII. It fools the computer into thinking that the random num- 
bers in the SORT/DAT file are program line numbers. The computer 
then puts the line numbers into order. 

The asterisk in line 100 of Program Listing 1 is required because the 
computer drops any line numbers not followed by a function, com- 
mand, or character. Later, line 110 in Listing 2 removes the asterisk 
from the number and prints the number on the screen. Line 100 in List- 
ing 1 also converts the random number into a non-numeric string. This 
lets you add one character before saving it to the disk file. Program List- 
ing 3 lets you type in and sort your own numbers. After the prompt, 
type your numbers, pressing ENTER after each one. To stop, press EN- 
TER without typing a number. The computer continues writing to the 
disk until the maximum number of entries is reached. If you enter a 
number less than 1 or greater than 65,535, the computer displays ER- 
ROR and asks you again to enter your number. 
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Program Listing 1 

10 REM LISTING NUMBER 1 

20 REM TOM MUELLER, PHOENIX, ARIZ. 

30 REM 

40 REM ME=MAX. NUMBER OF ENTRIES 

50 ME=100 

60 REM OPEN SEQUENTIAL FILE TO STORE NUMBERS IN 

70 OPEN"0" , 1 , "SORT/DAT" 

80 REM GENERATE RANDCM NUMBERS 

90 FOR I = 1 TO ME 

100 AS=STR$(RND(9999))+"*" 

110 PRINT LEFT$(AS,LEN(A$)-1) 

120 REM WRITE RANDOM NUMBER ON DISK 

130 PRINT #1, A$ 

140 NEXT I : CLOSE 

150 REM DONE 

160 PRINT"TYPE IN LOAD ' 'SORT/DAT' ' AND PRESS <ENTER>" 

170 PRINT'THEN TOPE IN SAVE ' 'SORT/DAT' ',A AND PRESS <ENTER>" 

180 PRINT 

190 PRIOT'THE SORT IS DONE..." 

200 PRim"'TO SEE THE NUMBERS," 

210 PRINT'TYPE IN THE SECOND PROGRAM (LISTING #2) AND" 

220 PRINT"TYPE RUN" 



Program Listing 2 

10 REM LISTING NUMBER 2 

20 REM TOM MUELLER, PHOENIX, ARIZ. 

30 REM 

40 REM OPEN SEQUENTIAL FILE TO LOAD 

50 REM SORTED NUMBERS BACK INTO COMPUTER. 

60 OPEN" I ",1, "SORT/DAT" 

70 REM CHECK FOR END OF LIST 

80 IF EOF(l) THEN CLOSE : END 

90 INPUT #1, A$ 

100 REM DISPLAY NUMBER 

110 PRINT LEFTS (A$,LEN(A$)-1) 

120 GOTO 80 



Program Listing 3 

10 REM LISTING NUMBER 3 

20 REM TOM MUELLER, PHOEHIX, ARIZ. 

30 REM 

40 REM ME=MAX. NUMBER OF EOTRIES 

50 ME=100 

60 OPEN"0",l, "SORT/DAT" 

70 REM ENTER NUMBERS HERE 

80 FOR I = 1 TO ME 

90 N$="" : INPUT "TYPE IN A NUMBER OR JUST PRESS <ENTER> TO QUIT 

" ; N$ 
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100 IP N$="" THEN 130 

110 IF VAL(N$)<1 OR VAL(N$)>65535 THEN PRINT "ERROR" : GOTO 90 

120 N$=*T$+"*" : PRINT #1, N$ : NEXT I 

130 CDDSE 

140 PRINT"TYPE IN LCftD' 'SORT/DAT' ' AND PRESS <ENTER>" 

150 PRINT"THEN TYPE IN SAVE" 'SORT/DAT' '.A AND PRESS <ENTER>" 

160 PRINT 

170 PRINT'TO DISPLAY THE SORTED LIST, RUN THE PROGRAM SHOWJ" 

180 PRINT'IN LISTING NUMBER 2." 
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Testing Shell- 
Metzner Sort 
Routines 

by T. W. Cleghorn 



System Requirements 

Model I or 111 

level II BASIC 

16KRAM 



Recently 1 was looking for a good sorting algorithm to replace a binary 
search technique overloaded with increases in file size. I do not have 
a standard sort product for my TRS-80, so each application with data to 
sort must include its own sort routine. A diligent search of 80 Micro re- 
vealed three programs that include Shcll-Metzner sorts. 

Doug Walker's "Beyond Shell Metzner," [80 Microcomputing, Septem- 
ber 1980) provides an easy test data source, with its parameter driven, 
random string generator. Swapping pointers rather than swapping 
strings seems promising. Walker's program includes several other op- 
tions' multiple field selection, ascending or descending sequences, and 
numeric or string data types. Stewart E. Fason's review of the B17 prod- 
uct (80 Microcomputing, March 1981) includes a driver test program with 
a variation on Shell-Metzner. Thomas C. Mehesan, Jr.'s "The Spare 
Time Generator" (May 1981) is also based on Shell-Metzner. 

1 defined and programmed a validation and timing experiment to 
prove and measure the three techniques. I report the results of my test- 
ing here All times are in seconds, measured by the internal clock. 1 iden- 
tify the three Shell-Metzner (S-M) algorithms by the author's name. 

Binary vs. Fason 

First to fall was the binary search algorithm. I used a production data 
file on disk as a data source and selected a varying number of data rec- 
ords from the file for several runs. I sorted the same set of records with 
each technique. It was no contest. The Fason S-M outperformed my bi- 
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Round 


Fason 


1 


17 


2 


19 



nary technique by more than three to one at the 50-record level and 
reached eight to one at the 125 record mark. 

Fason vs. Walker 

I added the Fason algorithm to the Walker random string generation 
program. Fason won by a technical knock-out. I completed two runs 
with the same 50 records sorted by each algorithm. The sorting times, in 
seconds, are shown below. 

Walker Ratio W/F 
145 8.5/1 

17y 9.4/1 

The Walker VARPTR swap routine hit an address greater than 32767 
and died with a field overflow error. Since Walker was trailing by nine to 
one, I stopped the bout. 

Mehesan vs. Fason 

"The Spare Time Generator" by Mehesan includes a trim S-M algo- 
rithm in 15 lines of BASIC. I constructed another program combining 
Walker's data generator, the Mehesan algorithm and the Fason dread- 
nought and began a new set of time trials. Another clean sweep for 
Fason: after ten rounds the score was 1.36 seconds per record for Fason 
and 3.61 seconds per record for Mehesan |see Figure 1). 

These statistics reveal a non-linear increase in sorting time per record 
as the number of records increase. I assumed this was due to the 
TRS-80 string packing algorithm. To test this theory I collected, com- 
bined and modified the various test programs used until now and de- 
veloped the parameter-controlled sort test program SORT/TST (see 
the Program Listing). 
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Figure 1 . Fason vs. Mehesan 
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Figure 2. Data Type Analysis 
Statements Function 
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760 
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850 
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Identification and prologue 

Run parameters description 

Run parameters— DATA statement 

Interpret run parameters, establish the run environment 

Generate the test data 

Pass identification 

Time and invoke Sort One 

Reset the data array 

Time and invoke Sort Two 

Get parameter and test for another pass 

End of job 

Subroutine to verify sort results 

Clock interface subroutine 

Line print output 

Entry point to Sort One 

Entry point to Sort Two 



Figure 3. SORT/TST Structure 
Position Form, Function and Use 



1 A number that specifies the number of bytes to be reserved for strings, 
this number becomes the operand of a Clear 

2 To specify Data Type, = String, 1 = Numeric 

3 = Integer, or 1 = Floating Point Numbers. Tested only if parameter 2 is a 1 

4 1 = Print to Line Printer, = Video Display only 

5 N This series defines the number of records per pass and the number of 
passes. The program terminates when a zero is read from this series. 

Figure 4. SORT/TST parameters 



SORT/TST 

SORT/TST, a parameter driven program, facilitates the testing and 
measurement of two sorting algorithms. SORT/TST generates test data, 
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constructs data arrays, invokes and times two sorting algorithms, and re- 
ports the results to the video display and, optionally, to the line printer. 
The structure of SORT/TST is shown in Figure 3. Line 220 contains all 
the run parameters used by SORT/TST to perform a five-pass integer 
data test and write the results to the line printer. The run parameters are 
positional; they are read and interpreted based on the order in which 
they appear in the data statement. Their meanings are tabulated in 
Figure 4. 

GOSUB statements at lines 570 and 680 invoke the two routines under 
test. Array T stores the data to be sorted, and integer variable N contains 
the number of records. The sort under test must be written as a closed 
routine that retains control until array T is sorted into ascending se- 
quence and exits via a RETURN statement. A numeric array, B, is avail- 
able for use by the sort under test. Other variables that may be tested but 
not changed are listed in Figure 5. 

Floating Numbers 

I defined SORT/TST run parameters to perform five passes, varying 
the number of records from 25 to 200 with each pass. I ran SORT/TST 
three times, setting the data type option to string, floating point numeric, 
and integer. The results of three runs of five passes each are shown in 
Figure 2. These measures support the theory that the string-packing rou- 
tine accounts for the non-linear increases in sort time for string data. 

With an eight-fold increase in records between runs one and five, the 
time per record for strings increased 5.2 times (Fason) and 13.89 times 
(Mehesan), while the integer time increased 1.43 times and 2. 18 times, 
respectively. 
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Contents 


A, AX, N 
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Start Time in seconds 
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Parm 2 
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Parm 3 
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Parm 4 


FN 


Current Pass Number 


Tl 


Storage Array for Test Data 



Figure 5. Reserved variables 



Program Listing 

10 ' PROGRAM "SORT/TST", TO COMPARE SORT TIME OF TWO 
20 ' SORTING ALGORITHMS. THIS PARAMETER DRIVEN PROGRAM 



Program continued 
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30 ' GENERATES THE TEST DATA, TIMES, CALLS, AND VERIFIES THE 

40 ' RESULTS OF TWO SORTIN3 ROUTINES AGAINST THE SAME DATA. 

50 ' PARAMETERS ARE DEFINED BY THE FOLLOWING DATA STATEMENT 

60 ' BY TWC COMPUTING, 

70 ' HOUSTON, TEXAS 

g0 • ****************************************************** 

90 ' THE PARAMETERS, VALUES, AND USE ARE AS F0I2£WS 

100 ' D = NUMBER OF BYTES OF STRING DATA TO RESERVE 

110 ' P2; = GENERATE AND SORT CHARACTER STRINGS 

120 ' 1 = GENERATE AND SORT NUMERIC DATA 

130 ' P3: (TESTED ONLY IF P2 = 1) 

140 ' 1 = SINGLE PRECISION FLOATING POINT NUMBERS 

150 ' = INTEGER NUMBERS 

160 ' P4: 1 = PRINTED SORT STATISTICS ON LINE PRINTER 

170 ' = STATISTICS TO DISPLAY ONLY 

180 ' A(l) THRU A(N) = NUMBER OF RECORDS TO GENERATE AND 

190 ' NUMBER OF PASSES, TERMINATED WHEN A(N) - 

200 ' ****************************************************** 

210 ' D, P2, P3, P4, A{1) THRU A(N) 

220 DATA 1000, 1, 0. 1. 25,50,100,150,200,0 

230 CLS: DEFINT A-S.U-Z 

240 READ D 

250 CLEAR D 

260 READ D,P2,P3,P4,AX 

270 ' GET HIGHEST REQUESTED RECORD COUNT FOR ARRAY SET 

280 READ A: IF A > AX THEN AX = A 

290 IF A > THEN 280 

300 RESTORE: READ D,P2,P3,P4,A ' RESET PABMS 

310 IF P4=l THEN LPRINT"SORT TEST, PARMS =";D;P2;P3;P4;", "f 

320 IF P4=l THEN IF P2=l THEN LPRINT "NUMERIC DATA"? ELSE LPRINT" 

STRING DATA" 

330 IF P2 = 1 THEN 340 ELSE DEFSTR T: GOTO 360 

340 IF P3 = 1 THEN DEFSNG T ELSE DEFINT T 

350 IF P4=l THEN IF P3=-l THEN LPRINT", FLOATING POINT" ELSE LPRI 

NT", INTEGER" 

360 ' GENERATE RANDOM SORT RECORDS 

370 . **************************************************** 

380 DIM T(AX}, Tl(AX), B(AX) 

390 N""Ai FOR I = 1 TO A 

400 IF P2 = THEN 430 ELSE T=RND(32 , 767) 

410 IF P3 - 1 THEN T = T * RND(10) 

420 GOTO 500 

430 ' GENERATE CHARACTER STRINGS 

440 T="" 

450 B = RND(8) 

460 FOR C = 1 TO B 

470 T = T+CHRS(RND( 26)+64) 

480 NEXT C 

490 T = T + " INPUT REC."4STR$(I) 

500 T(I)^T 

510 TKD^T 

530 PnS>N+1: PRINT "***** PASS *****" :PN;", ":N; "RECORDS" 

540 IF P4 = 1 THEN LPRINTsLPRINT "***** PASS *****"; PN: LPRINT 

550 GOSUB 820: KTUBCI ' START TIME ******************* 

560 . ************** >>»> SORT NO. 1 <«< ******************* 

570 GOSUB 4000 ' <<<<< PERFORM SORT NO. 1 

580 GOSUB 820: PRINT "SORT NO. 1 ELAPSED TIME = "; (TXi-KTl ); SEC 

590 IF P4=l THEN LPRINT"SOKT NO. 1 ELAPSED TIME ="(TXL-KTI );"SEC 
ONDS" 
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600 IF P4=l THEN GOSUB 860 

610 GOSUB 760 

620 ' NOW TIME AND PERFORM SORT NO. 2 

630 FOR I = 1 TO A ' RESTORE T ARRAY 

640 T(I) = T1(I) 

650 NEXT' I 

660 GOSUB 820: KTI=TX1 ' RECORD START TIME 

670 • ***************** >>>> SORT NO. 2 <<<< ************** 

680 GOSUB 5000 ' <<<<< PERFORM SORT NO. 2 

690 GOSUB 820 ' RECORD STOP TIME 

700 PRINT "SORT NO. 2 ELAPSED TIME = "; (TX1-KT1 ); "SEOONDS" 

710 IF P4-1 THEN LPRINT"SORT NO. 2 ELAPSED TIME ="; (TX1-KT1 );"SE 

CONDS": GOSUB 860 

720 GOSUB760 ' TEST SORTED FILE 

730 READ A: IF A < 1 THEN 740 ELSE 390 

740 IF P4 - 1 THEN LPRINTCHR$(12); 

750 END 

760 ' TEST SORTED RESULTS 

770 FOR I - 1 TO A-l 

780 IF T(I) <= T(I+1) THEN 800 

790 PRINT T(I);" > > > "?T(I+D 

800 NEXT I 

810 RETURN 

820 ' SUB-ROUTINE TO GET TIME IN SEOONDS 

830 X1$=RIGHTS(TIME$,8) ' HH/MM/SS 

840 TXI«(VAL(LEFT$(X1$,2)) * 3600) + (VAL(MID$(X1$,4,2)) * 60) + 

(VAL(RIGHTS(X1$,2))) 
850 RETURN 

860 LPRINT"SORTED";N; "RECORDS, AT" r tLPRINTUSINS" #♦.####";( (TX1-K 
TI)/N);:LPRINT" SEOONDS PER RECORD" 
870 RETURN 

880 ' ************** END OF SORT/TST *************** 
890 ' START SORT NO. 1 AT STATEMENT NO. 4000 AND SORT NO. 2 AT S 
TATEMENT NO. 5000 

4000 ' FROM "B17", STEWART E. FASON, 
4010 ' 80/MICROaOMPUTIl!l3, MAR. '81 
4020 L»l 
4030 B(L) = N+l 

4040 M»l 

4050 J=B(L) 

4060 I=M-1 

4070 IF J-M < 3 THEN 4270 

4060 Ml= INT(RND(0)*(J-M)}-tM 

4090 I - I + 1 

4100 IF I = J THEN 4190 

4110 IF T(I) <- T(M1) THEN 4090 

4120 J =• J - 1 

4130 IF I -J THEN 4190 

4140 IF T<J) >=T(M1) THEN 4120 

4150 T = T(I) 

4160 T(I) = T(J) 

4170 T(J) = T 

4180 GOTO 4090 

4190 IF I >= Ml THEH 1=1-1 

4200 IF J - Ml THEN 4250 

4210 T = T(I) 

4220 Ttl) = T{M1) 

4230 T(M1 ) = T 

4240 L = L + 1 

4250 B(L) = I 

4260 GOTO 4050 

4270 IF J-M < 2 THEN 4320 Program continued 
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4280 IF T(M) < T(MH) THEN 4320 

4290 T = T(M) 

4300 T(M) = T(Mfl) 

4310 T(M+1) = T 

4320 M = B(L) + 1 

4330 L = L -1 

4340 IF L > THEN 4050 

4350 RETOJW 

5000 ■ "THE SPARE TIME GENERATOR", THOMAS C. MEHESEN JR 

5010 ' 80/MICKXX)MFUTING, MAY, 1981, PAGE 264 

5020 M=N 

5030 M = INT(M/2) 

5040 IF M = THEN RETUrai 

5050 L = 1: Ml = N - M 

5060 I=L 

5070 J = I + M 

5080 IF T(I) <= T(J) THEN 5110 

5090 T = T{I): T(I) = T(J): T(J) =* T 

5100 I » I - Hi IF I < 1 THEN 5110 ft-Wp 5070 

5110 L = L + Is IF L>M1 THEN 5030 iT-tf 5060 
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ASCII Converter 

by David D. Busch 



System Requirements: 

Model I or 111 

Level II BASIC 

16KRAM 



What's ASCII, and why must it be converted? The answer lies in the 
different ways computers and humans process information. 

People can handle mixtures of alpha and numeric characters, but com- 
puters recognize only binary numbers— ones and zeros. When string 
data is fed to a TRS-80, it must be converted to a series of numbers that 
the processor can handle. ASCII, or American Standard Code for Infor- 
mation Interchange, is one standard of communication that allows com- 
puters to exchange alphanumeric information in a form common to pro- 
cessors with differing operating systems and languages. 

But, even if you have no modem, and aren't communicating with 
other computerists, it is often necessary to translate a string into the cor- 
responding ASCII code, or vice versa. In some cases, when only a few 
characters need converting, a table of codes and their string values will 
do. Other times, longer messages need deciphering. 

One good application for ASCII characters in programs is in game- 
writing. Writers of BASIC adventure programs may wish to hide mes- 
sages from those casually listing the program. The CHR$(n) function can 
assign the desired string values to string variables called at appropriate 
points in the program. CHR$(n] returns a one-character string that corre- 
sponds to the ASCII code of n. For example, PRINT CHR$(65) produces 
an uppercase A on the screen. 

A BASIC adventure might use a message such as: "Look in the hollow 
stump." This hint could be labeled Hl$, and concatenated using 
CHR$(n], and the ASCII codes: 
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100 DATA 76,111,111,107,32,105,110,32,116,104,101,32,104,111,108,108, 
111,119,32,115,116,117,109,112,32 

1 10 FOR N = 1 TO 25:READ A 

120 H1$ = H1$ + CHR$(A) 

130 NEXT A 
Use additional DATA lines and FOR-NEXT loops to put any number 
of messages into difficult-to-read-accidentally string variables. Of 
course, any knowledgeable programmer can pick the BASIC game apart, 
or enter PRINT Hl$ from command mode once the program has been 
run past the initialization point. The object of this technique, however, is 
to protect the game player who innocently lists the program and wants 

to save the fun. AC r-TT 

The same method can hide program credits within BASIC code. ASCII 
Converter (see Program Listing) accepts any keyboard input (in batches 
up to 255 characters each) and translates the alphanumerics into ASCII 
code, or converts an ASCII message back into the equivalent string. Those 
with Disk BASIC, Model III BASIC, or some other patch for the TRS-80 
with LINEINPUT can best use this program. LINEINPUT allows you to 
feed any keyboard character, including commas and quotes, into the 
string to be translated into ASCII. If you have no LINEINPUT you may 
still be able to use this program; try changing the LINEINPUT in line 420 
to a simple INPUT. Remember to use no string delimiters in your 
message. 

ASCII Converter allows you to input a message of up to 100 lines, 
stored in a string array, MESS$(n), which is dimensioned in line 50. 
When you run the program, your instructions are displayed, and you 
choose video output only, or output to both the screen and a printer. (If 
printer output is desired, PFLAG is set to a value of 1 in line 250.) 

The next menu displayed (lines 260-350) allows you to convert a string 
to ASCII code, or translate a series of ASCII numbers into the equivalent 
string. Your choice sets another flag, CH, to a value of either one or two 
in line 340. The ASCII or string message is input within a FOR-NEXT 
loop at lines 370-450. Be careful to enter the message correctly, with no 
typographical errors. The program does not differentiate between string 
and ASCII codes at this point; and, therefore, there is no check to see if 
ASCII numbers, if applicable, are valid (less than 255). It's possible to in- 
put nonsense. Because spaces (CHR$(32)) indicate the end of a group of 
ASCII numerals, a space is added to the end of input in line 440, if the 
user excludes it. 

If the first three characters of the data input equal the string 999, sig- 
naling the end of message input, control exits from the loop at line 430 to 
the parsing subroutine at lines 470-680. Here, a FOR-NEXT loop is initi- 
ated at line 470 and performed as many times as the number of message 
lines that have been input, less one (FOR Nl = 1 to N- 1). The final 
message line input will be 999, and should not be translated. 
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As each line of MESS$(n) is brought on line, a second loop, nested 
within the first, looks at each character and assigns its value temporarily 
to A$ (line 490). When the CH flag does not equal two, it indicates that 
the line is an ASCII series to be decoded, and control drops down to line 
510, where the ASCII value of the character is returned. This number is 
listed to the screen, followed by three spaces, and, if PFLAG = 1 , it is also 
sent to the printer. At this point, control branches to line 620, where N2 
is incremented by one, signaling the examination of the next character in 
the string. 

Should CH = 2, a different series of operations is performed on the 
character in A$ . At line 520, the program looks to see if AS is a space 
(CHR$(32)), in which case it knows that the parsed ASCII group is com- 
plete. Spaces are used to delimit the groups, because the ASCII code in- 
put may consist of one, two, or three numbers. 

If A$ does not equal CHR$(32), then at line 550 it is concatenated onto 
the end of N3$. Working from left to right, the string representation of 
each of the numerals in a given code group is added to N3$ until it is 
complete. Then, the value of the string is assigned to the variable B (line 
530), and CHR$(B) is listed to the screen, or printed. Then N3$ is nulled, 
and the next group of ASCII code is examined. 



Program Listing 

* * 

* ASCII CONVERTER * 
20 ' * * 

* DAVID D. BUSCH * 
30 ' * 515 E. HIGHLAND AVE. * 

* RAVENNA, OHIO 44266 * 

* * 
ft********************************************** 



40 CLEAR 4000 

50 DIM MESS$(100) 

60 '*+*+** INSTHJCTIONS ****** 

70 CLS 

60 PRINT 

90 PRINT 

100 PRINT " ###### ASCII CONVERTER ******" 

110 PRINT 

120 PRINT "THIS PROGRAM WILL CONVERT ANY CHARACTER OR " 

130 PRINT "MESSAGE INPUT FROM THE KEYBOARD TO ITS ASCII" 

140 PRINT "CODE. IT WILL ALSO CONVERT ASCII CODE" 

150 PRINT "BACK INTO A STRINS. ENTER SPACES BETWEEN" 

160 PRINT "WORDS OR NUMBER PAIRS, AND ENTER ■999 ,n 

170 PRINT "WHEN FINISHED." 

Program continued 
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180 PRINT 

190 PRINT 

200 PRINT "DO YOU WANT YOUR MESSAGE ALSO" 

210 PRINT "DIRECTED TO LINE PRINTER?" 

220 PRINT 

230 PRINT " Y/N"; 

240 INPUT m$ 

250 IF LEFT$<AN$,1)="Y" TEEN PFLAG=1 

260 CLS 

270 PRINT 

280 PRINT 

290 PRINT "DO YOU WANT TO : " 

300 PRINT " 1.) CONVERT STRING TO ASCII CODE" 

310 PRINT " 2.) CCNVERT ASCII CODE TO STRING EQUIVALENT" 

320 PRINT 

330 INPUT " ENTER CHOICE :"rCH$ 

340 CH*VAL{CH$) 

350 IF CH<1 OR CH>2 GOTO 330 

360 ' ****** ENTER CHARACTERS OR MESSAGE ****** 

370 : FOR N=l TO 100 

380 t CLS 

390 : PRINT 

400 : PRINT 

410 : PRINT "ENTER LINE OF MESSAGE {TYPE 999 WHEN FINISHED ) 

420 : LINEINPUT MESS? (N) 

430 : IF LEFT$(MESS$(N),3)="999" GOTO 470 

440 : IF RIGHT$(MESS${N),1)<>CHR$(32) THEN 

MESS$ (N ) «+ESSS (N ) 4CHR? ( 32 ) 

450 : NEXT N 

460 ' ****** PARSE CHARACTER OR MESSAGE ****** 



470 


: FOR Nl=l TO N-l 


480 


: FOR N2=l TO LEN(MESS$<N1 ) ) 


490 


: A$=*«D$(MESS${N1),N2,1) 


500 


: IF 0^2 GOTO 520 


510 


: A=*SC(A$)( 




PRINT A.;" ";: 




IF PFLAG=1 THEN LPRIOT A;" "; : 




GOTO 620 


520 


: IF A$<>CHRS{32) GOTO 550 


530 


: B*VAL(N3$)s 




PRINT CHR$(B);: 




IF PFLAG=1 THEN LPRINT CHRS(B); 


540 


GOTO 600 


550 


N3$^J3S-hA$ 


560 


NU-NU+1 


570 


IF NU=2 GOTO 620 


580 


IF A$<HRS(32) GOTO 620 


590 


GOTO 620 


600 


NU=* 


610 


N3$="" 


620 


NEXT N2 


630 


PRINT 


640 


INPUT "HIT ENTER WHEN READY FOR NEXT LINE"; AS 


650 


CLS 


660 


PRINT 


670 


NEXT Nl 



680 PRINT'END OF MESSAGE (S)" : END 
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Capture RST 1 OH: 
Customized 
BASIC Commands 

by James Cargile 



System Requirements: 

Model 1 

Level II BASK* 

Editor/assembler 



The problem: you want a clear and easy-to-use link between a BASIC 
program and an assembly-language program that does not impair 
functioning of the BASIC interpreter or any of the ROM or Disk BASIC 
routines. One solution is to use RST 10H, otherwise known as the parser, 
to implement customized commands. 

RST 10H is one of seven, 1-byte calls to the ROM. On execution of RST 
10H, a return address is pushed into the stack, and the program counter 
is loaded with the address 0010H for execution. At 0010H in the ROM is 
a jump to user RAM address 4003H. At 4003H is a jump to the ROM rou- 
tine at address 1D78H. The routine at 1D78H increments the HL register 
pair, loads the byte addressed by HL into the A register, and sets flags to 
indicate whether the byte contains a colon or null (indicating end of a 
BASIC text line), or a digit zero to nine, or other characters such as let- 
ters. The annotated code for the subroutine at 1D78H is shown in Figure 
1. RST 10H is used frequently by other ROM routines because it is a 
1-byte call and because it is useful in deciphering strings of text. Specifi- 
cally, it is called by the keyboard driver, text editor, and BASIC interpret- 
er portions of the ROM. Since RST 10H vectors to a user RAM address at 
4003H it may be temporarily diverted to assembly-language routines by 
replacing the jump address to 1D78H with the address of any desired 
user routine. The only registers that must be controlled are the HL 
register pair, which usually points to the position in a BASIC text line, 
and the stack pointer, which contains a return to the routine calling RST 
10H. 
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IMC 

LD 

CP 

RET 


HL 

A,<HL) 

3AH 

NC 


CP 
JP 
CP 
JR 


20H 

Z,L1D78H 
0BH 
NC,1D8BH 


CP 
JP 
CP 
CCF 


09H 

NC,1D78H 

30H 


INC 


A 


DEC 


A 



, ************** 3^0 ** M „„„ M ,„„ MM 

* 

L1D78 IMC ht. ; INCREMENT READ POINTER 

;IS CHARACTER A COLON? 
; RETURN IF COLON OR 
;IF THIS IS A CHARACTER 
;IS THIS A BLANK? 
;IF SO, SKIP IT 

rCANNOT BE A NULL 
;GO CHECK FOR DIGIT 

L1D6B £ ^ 1D78H TSKIP 09H AND 0AH 
^ il ™ ;IP THIS A ZERO? 

;SET CARRY IF '0' TO '9' 
;RESET CARRY IF NULL 
;RESET Z FLAG IF '0' 
|^ A rSET Z FLAG IF NULL 

; ********** EXIT CONDITIONS ******************** 

;** ZERO FLAG ***** CARRY FLAG ****** result *. 

: R ^f ; *B&T * CHARACTER 

RESET * '. < or mutt 

, ****"*****************.********* # „^^™^ # 
Figure 1. Annotated axle f<» the submarine at 1D7SII 

Because of these features, RST 10H can easily intercept BASIC nm 
^mexecuhon divert to a user subroutine, execute it, S 

BASIC interpreter without the bother of DEFUSR and USR ei^r-tran 
ping techniques, or use of BASIC tokens P " 

^7I )H d ° eS 'lT Sent lhrcc P^blems-all easily solved. Perhaps the 
most obvious problem is that you don't want to execute the a se mb 
anguage routine while entering or editing program text T e pr OD en s 

D5BH V CePtl T ° n ir thc CaI ' S t0 R ^ T 10H from ROM ad 

in u^s RSTtnH d P ro ,? lcm ™V ^ur if your assembly-language rou 

wnt enHlSf^ " Ca " S a . R ° M r ° Utine Whidl USeS RST WH. To prc- 

the ROM hef PI "? ° r ^ ° VerflOW ' giw COntrol of RST 10H baXo 

Sre RctToH f nn f S ' ^ " rOUline " After 6XitinS thc USer rou «" " 

of RST 10H unon entTv ^ ^ ^^ SinCC y ° U rel ^ Uish ^^ 

:^ ] :i?^^^r- captures RST ioH - - - *™ 

As an example of the potential uses of RST IOH, I have included nor 
turns of the code for a program MATRIX, which p ovides a e of maZ 
operations commands for use in BASIC programming. Each oHhe 
trix operations subroutines is invoked by the command MAT and isTol- 
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lowed by various operations and functions. The command to multiply 
matrices B and C and place the result in matrix A is "MAT A = B*C. The 
technique of capturing RST 10H so that the customized command MAT 
can be identified is illustrated in the Program Listing. 

The initialization portion of the code sets the top of memory and loads 
the address of the command processor (CMDPRO] into the RST 10H 
vector at 4004H. It also diverts the Disk BASIC error processor by plac- 
ing the address of the error processor (ERRPRO) into the address 4 1 A7H, 
replacing the usual vector to 57E6H. The command processor section 
saves the stack pointer and examines it to see if the call is from 1D5BH in 
the ROM and, if so, exits the user routine (via NOCMD1) without exe- 
cuting it, because the call is from text entry or the editor. The command 
processor then determines- whether the MAT command is being 
scanned. If it is not, a continuation exit (via NOCMD) to 1D78H is used. 
If the MAT command is being read, the command processor relin- 
quishes control of RST 10H and executes the user subroutine. 

The user routine exits normally (via JPOUT) to the BASIC interpreter 
after reestablishing control of RST 10H. Abnormal exits due to errors are 
handled by the error processor which also recaptures RST 10H. The re- 
sult is an effective method to call assembly-language routines from the 
direct mode or from a BASIC program. The customized commands are 
entered, edited, and executed in exactly the same manner as those pro- 
vided by BASIC. Give it a try the next lime you're combining assembly- 
language and BASIC programs. 



Program Listing. Example of code to use RST 10H for 


customizing BASIC commands 




00100 


.*******•** 


EXAMPLE OF CODE TO 


USE RST 10H ********** 




00110 


.*•****•*** 


IN IMPLEMENTING CUSTOMIZED ********** 




00120 


.********** 


COMMANDS ON TOE TRS-80 MOD i ********** 




00130 


; 








00140 


; 








00150 


. ********** 


INITIALIZATION ********** 




00160 


• 






7000 


00170 


ORG 


7000H 




7000 211870 


00180 


INIT LD 


HL, CMDPRO 


7 ADDRESS OF COMMAND PROCESSOR 


7003 220440 


00190 


LD 


(4004H),HL 


;LOAD INTO RST 10H VECTOR 


7006 21FP6F 


00200 


LD 


HL,INIT-1 




7009 22B140 


00210 


LD 


(40B1H),HL 


;SET TOP OF MEM 


700C 224940 


00220 


LD 


{4049H),HL 


; DITTO 


700F 217170 


00230 


LD 


HL.ERRPRO 


; ADDRESS OF ERROR PROCESSOR 


7012 22A741 


00240 


LD 


(41A7H),HL 


.•DIVERT DISK BASIC ERROR ROUTINE 


7015 C3CC06 


00250 
00260 


JP 


06CCH 


rEXIT TO BASIC AFTER INITIALIZAT 




00270 


.********** 


COMMAND PROCESSOR ********** 




00280 


; 






7018 ED737E70 00290 


CMDPRO LD 


(SPSAVE),SP 


;SAVE STACK POINTER 


701C DDE1 


00300 


POP 


IX 


;GET CONTENTS OF STACK 


701E DD228070 00310 


LD 


(RETURN), IX 


;SAVE IT 










Program continued 
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7022 
7024 
7027 
7028 
7029 
702C 
702P 
7030 
7033 
7034 
7035 
7036 
7037 
7039 
703B 
703D 
7040 
7041 
7042 
7044 
7047 
7048 
7049 
704B 
704E 
704F 
7052 
7055 



DDES 

227C70 

08 

D9 

2A8070 

115B1D 

DF 

C25670 

D9 

08 

23 

7E 

FE20 

28FA 

FE4D 

C25870 

23 

7E 

FE41 

C25870 

23 

7E 

FE54 

C25870 

E5 

21781D 

220440 

El 



7056 08 

7057 D9 

7058 2A7C70 
705B ED7B7E70 
705F C3781D 



7062 211870 
7065 220440 
7068 2A7C70 
706B ED7B7E70 
706F AF 
7070 C9 



7071 E5 

7072 211870 
7075 220440 

7078 El 

7079 C3E657 

707C 0000 

707E 0000 



00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 



SKPBLK 



PUSH 

LD 

EX 

EXX 

ID 

ID 

RST 

JP 

EXX 

EX 

INC 

ID 

CP 

JR 

CP 

JP 

INC 

LD 

CP 

JP 

INC 

LD 

CP 

JP 

PUSH 

LD 

LD 

POP 



IX 

{ BRDPTR), HL 

AF.AF' 

HL, (RETURN) 
DE.1D5BH 
18H 
NZ,NCCMD1 

AF,AF' 

HL 

A,(HL) 

20H 

Z, SKPBLK 

■M' 

NZ,NOCMD 

HL 

A, (HL) 

'A' 

NZ.NOCMD 

HL 

A,(HL) 
, T . 

NZ.NOCMD 
HL 

HL,1D78H 
(4004H),HL 

HL 



RESTORE CONTENTS OF STACK 
SAVE BASIC INTERPRETER POINTER 
SWAP REGISTER SETS 

rEXAMINE CONTENTS OF STACK 

;TO SEE IF CALL IS FROM INTERPRETER 

;IF TEXT ENTRY OR EDIT 

;SWAP BACK TO PRIMARY REGISTERS 

;LOOK AT NEXT CHARACTER 
;TO SEE IF IT IS A SPACE 

SKIP ALL SPACES 
IS THIS 1ST LETTER OF OOMMAN? 
IF NOT, RETURN TO INTERPRETER 
GET NEXT CHARACTER 

;IS THIS 2D CHAR OF COMMAND? 
fIF NOT RETURN TO INTERPRETER 
;GET NEXT CHARACTER 

IS THIS THE LAST CHAR OF COMMAND? 
IF NOT RETURN TO INTERPRETER 
SAVE POINTER TO END OF VALID COMMAND 
ADDRESS OF RST 10H ROUTINE 
RESTORE VECTOR TO RST 10H ROUTINE 
GET POINTER 



.********** INSERT PROGRAM HERE. MUST MAINTAIN CONTROL 
.******#*** of THE POINTER SO THAT A CLEAN RETURN TO THE 
. ********** BASIC INTERPRETER CAN BE ACCOMPLISHED AT THE 

.********** END OF THE USER ROUTINE. EXIT TO JPOUT. 



. ********** ejqt HERE IF NO MATCH WITH COMMAND 



********** 



NCCMD1 EX 
EXX 

NOCMD ID 
LD 
JP 



AF.AF' 

HL.(BRDPTR) 
SP, (SPSAVE) 
1D78H 



;SWAP BACK TO PRIMARY REGISTERS 

GET INTERPRETER READ POINTER 
GET STACK POINTER 
GO PROCESS RST 10H 



********** exit HERE AT COMPLETION OF USER PGM ********* 



JPOUT 



LD 

LD 

LD 

LD 

XOR 

RET 



HL.CMDPRO 
(4004H),HL 
HL, (BRDPTR) 
SP, (SPSAVE) 

A 



ADDRESS OF COMMAND PROCESSOR 

RECAPTURE RST 10H 

GET INTERPRETER READ POINTER 

GET STACK POINTER 

CLEAR CARRY AND ZERO 'A' 

TO BASIC INTERPRETER 



********** ERH3R PROCESSOR ********** 



ERRPRD 



00890 
00900 
00910 
00920 



PUSH 

LD 
ID 
POP 
JP 



HL 

HL.CMDPRO 

(4004H),HL 

HL 

57E6H 



SAVE READ POINTER 

ADDRESS OF COMMAND PROCESSOR 

RECAPTURE RST 10H 

GET READ POINTER 

GO PROCESS ERROR 



BRDPTR DEFW 
SPSAVE DEFW 
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7080 0000 00930 RETURN DEEW 

00940 ; 
7000 00950 END 
00000 TOTAL ERRORS 



INIT 



;SBT TRA ADDRESS TO INIT RCOTINE 
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Adding 
Commands to 
BASIC 

by Alan R. Moyer 



System Requirements: 

Level II BASIC 
16K RAM 

Editor/assembler 



Have you ever said to yourself, "I wish I had that command in my 
BASIC?" You can add your own commands. 

BASIC is an interpretive language. It moves through your program list- 
ing, reading each command, deciding what it is to be done, and doing it, 
unless an error occurs (in which case it usually stops and tells you about 
it}. Each BASIC command is stored in memory as a one-byte representa- 
tion of the command. These representations are called tokens. When 
one is recognized, the interpreter looks it up in a table. The table tells 
where to go to execute the command. This process of interpreting your 
commands is what makes BASIC slow compared to machine-language 
programs, which are directly executed by the machine. 

To get the BASIC interpreter to jump to a machine- language routine of 
your choice, put the new routine's address in the look-up table. When 
the appropriate command is encountered, BASIC will jump to the new 
routine. 

BASIC keeps track of where it is in the program by reserving the Z80's 
HL register pair, so that it always points to the memory location of the 
character the interpreter is looking at. The A register contains the charac- 
ter at which the HL register pair is pointing. LD A r (HL] is a Z80 instruc- 
tion BASIC uses to load the contents of the memory location pointed to 
by the HL register pair into the A register. Anytime the HL register pair is 
used in the execution of a BASIC command, its contents are saved and 
restored before returning to the BASIC interpreter. If the HL register pair 
is not restored, BASIC gets lost and the computer locks up. 
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When the interpreter recognizes a command and jumps to the appro- 
priate routine, the HL register pair points to the next valid character after 
the command. You can pass information to a routine by placing the in- 
formation after the BASIC command keywords. 

Using NAME 

For example, the NAME command is usually not used, but you can 
use it to pass two pieces of information to a machine-language program 
for processing. Put the address of the new routine into the look-up table, 
where the jump address for the NAME command is stored, with POKE 
16783, X:POKE 16784, Y. Addresses 16783 and 16784 are the jump ad- 
dress for NAME. The command to be implemented is NAME A$,B$. 
This command exchanges the contents of A$ and B$ without using any 
temporary variables (for example, TEMP$=A$:A$ = B$: B$ = TEMP$). 
The interpreter sees the NAME command and jumps to the proper ad- 
dress. The HL register pair then points to the next non-space character 
after NAME. In the example, HL points to the A in A$,B$. 

Useful ROM Routines 

Figure 1 contains addresses for useful ROM routines that can be used 
to get information about the arguments that are passed to the routine. To 
swap the two string variables in the new command, find the address 
value of each of the string variables (VARPTR), and switch the data for 
each string. (For a complete explanation of VARPTR and how the vari- 
ables are stored in memory, see Radio Shack's Level II BASIC Reference 
Manual.) Once you know how to find the information for each variable, 
you can switch the string data and return to BASIC. 

Three New Commands 

The machine-language program in Program Listing 1 adds three new 
commands to BASIC. 

NAME STR$ (SWAP) exchanges the contents of two specified string 
variables without using any string workspace. 

NAME CVS (hexadecimal to decimal) converts any hexadecimal num- 
ber in either a string literal or a string variable into its decimal equivalent 
in a specified integer variable. 

NAME CVI (decimal to hexadecimal) converts any decimal number, 
either a numeric constant or integer numeric variable, into its hexadeci- 
mal equivalent in a specified string variable. 

NAME STR$ (SWAP) Command 

Program Listing 2 demonstrates the SWAP command. Three identical 
sets of string array variables are created, then swapped 100 times. Three 
different methods of swapping strings are timed for comparison. 
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Lines 10-190 initialize the string variables and ask which method of 
swapping is desired. String workspace cleanup, also known as garbage 
collection, is forced before each method. Method one uses a dummy 
variable to swap in line 390. This routine takes two minutes, 18 seconds. 
The major reason for this long time is garbage collection. By providing 
more initial string workspace [CLEAR 15000 bytes), garbage collection 
does not occur, and the swap time is only three seconds. That sounds im- 
pressive, but is unrealistic. If 15,000 bytes of string space is provided in a 
program, especially in a business program, most will be used and gar- 
bage collection will occur. 

The method in lines 420-520 is faster and does essentially the same 

BASIC'S Accumulator 

Useful for temporary storage of values during execution 

INT SNG DBL STRING 

411DH- LSB 

411EH- LSB 

411FH- LSB 

4120H- LSB 

4121H- LSB LSB LSB LSB = >$ DATA 

4122H- MSB LSB LSB MSB = >S DATA 

4123H- MSB MSB 

4124H- EXP EXP 

40AFH-NTF (Number Type Flag) 2 = INT, 3 = STRING, 4 = SNG, 8 = DBL 
0A7FH-Converts ACCUM to INT. Loads HL with ACCUM. 

0E6CH-Converts ASCII string pointed to by HL to ACCUM and sets NTF accordingly. 
Zero is returned if the string is non-numeric. 

OFBDH-Converts ACCUM to ASCII string for display. HL = string's address, DE = end 
of string plus one. ASCII string is terminated with a zero (null). 

2337H-Evaluates the expression pointed to by HL. The ACCUM contains the result 
and NTF set accordingly. The expression is terminated with any valid delimiter. The 
terminator is pointed to by HL when finished. All error routines are contained in this 
subroutine (it flags type mismatch, for example). 

2540H— Loads the ACCUM with specified variable' s value whose ASCII representation 
is pointed to by HL. Sets NTF accordingly. ACCUM is zero if the variable is not found. 
HL points to the character after the ASCII of the variable. 

25D9H-(RST 20H) Tests the NTF (at 40AFH). A register = NTF -3, Z set if NTF is a 
string, S set if INT, S reset and C set if SNG, S and C reset if DBL. 
260DH-Gets the VARPTR of the specified variable. HL points to the ASCII representa- 
tion of that variable |A$) . If the variable does not exist in the variable table, it is created. 
DE points to the variable's address and NTF is set accordingly. HL points to the charac- 
ter following the ASCII representation of the variable. 

2857H— Checks string workspace and reserves the number of bytes contained in the A 
register. The address of the work space is contained in 40D4H. Garbage collection takes 
place if necessary. An out-of- string error occurs if there's not enough room. 
4467H-Outputs a message (DOS and Disk BASIC). HL points to the beginning of the 
ASCII message, Message is terminated with a zero (null). 

Figure 1. Important addresses and useful ROM routines 
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thing as the NAME STR$ command. This method, however, swaps from 
BASIC, using the VARPTR statement to point to the string variable's 
data. This method takes 18 seconds, a definite improvement. The major 
advantage is that garbage collection never occurs, since all data manipu- 
lation is done with VARPTR pointers; no actual string operations are 
done. 

The third method, in lines 530-580, uses the new NAME STR$ rou- 
tine. All swaps are done as a single BASIC line (560) taking only two sec- 
onds. This improvement is especially noticed when doing a sort in 
BASIC. 

NAME CVS and CVI 

These are two common functions. Disk BASIC only partially ad- 
dresses one, with its &H statement, which allows you to use hexadeci- 
mal constants instead of decimal. This Disk BASIC command only al- 
lows you to use hexadecimal literals, not string variables containing hex- 
adecimal values. The NAME CVS command allows string variables with 
hexadecimal values to be used as hex constants. This machine-language 
routine is quite an advantage over a comparable BASIC routine. NAME 
CVI does conversions in the other direction, with the same advantages. 
Program Listings 3 and 4 are demonstration programs for NAME CVI 
and NAME CVS. For those without an editor/assembler, Program List- 
ing 5 contains the NAME STR$/CVI/CVS routine as BASIC DATA state- 
ments. This program protects memory size automatically, then installs 
the new commands. Program Listings 6, 7 and 8 provide each of the 
commands in a single format. Each program protects memory size auto- 
matically and installs the appropriate command. 

Don' t be frightened by the length of the NAME STR$/CVI/CVS assem- 
bler listing. Much of it consists of comments explaining the concepts. 
The code only requires 290 bytes of memory. 







Program Listing 1 






00100 


. it******************************************************* 




00110 


,** 


** NAME STRS/CVI/CVS (SWAP/DECHEX/HEXDEC) ** 


** 




00120 


. ** 


By Alan R. Meyer 


** 




00130 


.** 


07/10/81 


** 




00140 


.** 


Version 1 .0 


** 




00150 






** 




00160 


.** 


This supervisory routine checks the syntax of the 


** 




00170 


.** 


data following the BASIC NAME catmand word. 


** 




00180 


.** 


If the data is one of the tokens that represent 


** 




00190 


. ** 


either STR$ (F4)r indicating a SWAP cennand, or 


** 




00200 


. *■* 


CVI (E6); indicating a Dec to Hex conversion, 


** 




00210 


, ** 


or CVS (E7 ) ; indicating a Hex to Dec conversion, 


** 




00220 


. ** 


that ccmrand is then executed, otherwise a syntax 


** 




00230 


.** 


error is generated. See conments under the ind- 


** 

Program 


continued 
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260D 
0AF4 
7FFF 
BFFF 
FFFF 
4049 
418F 
402D 
0072 
2857 
2B02 
2337 
4121 
19A2 
40AF 
FFFF 



FECE 

FECE 21IX)FE 
FED1 228F41 
FED4 21DCFE 
FED? 224940 
FEDA C32D40 



FEDD 
FEDF 
FEE2 
FEE4 
FEE7 
FEE9 
FEEC 



FEF4 

CA1DFF 

FEE6 

CAEFIfE 

FEE7 

CA58FF 

C3A8FF 



00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00435 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 



;** ividual ccnmands for their explanations. ** 

;** To initialize in BASIC; ** 

;** POKE 16783,221: POKE 16784,254 (48K) ** 

;** POKE 16783,221: POKE 16784,190 (32K) ** 

;** POKE 16783,221: POKE 16784,126 (16K) ** 



;** Define labels 



VARPTR EQU 
CHKVAR EQU 
MEM16K EQU 
MEM32K EQU 
MEM48K EQU 
TOPMEM EQU 
NAME EQU 
DOS 
BASIC 
STRUM 

EVAIiJO EQU 
EVALST EQU 
ACCUM 
ERROR 
NTF 



EQU 

EQU 
EQU 



EQU 
EQU 
EQU 



MEMSIZ EQU 



260DH ;VARPTR subroutine ADDR 

00AF4H j Check for 5 VAR 

07FFFH ;Top of 16K memory 

0BFFFH ;Top of 32K memory 

0FFFFH ;Top of 48K memory 

4049H ;Top of memory pointer 

418FH jNAME vector 

402DH ;DOS reentry ADDR 

0072H ; BASIC reentry ADDR 

285 7H ; String room check ADDR 

2B02H ;Evaluate the numeric exp. 

2337H ;Evaluate the string exp. 

4121H ; ACCUM in BASIC 

19A2H r Error message routine ADDR 

40AFH ;NTF (Number Type Flag) 

MEM48K ;Put your memory size here 



;** Housekeeping 



START 



ORG 

ID 
LD 
LD 
U> 
JP 



MEMSIZ-131H 

HL.NAMCMD 

(NAME).HL 

HL.HAMCMD-1 

(TOPMEM), HL 

DOS 



HL=>New routine ADDR 
New ADDR (LII only) 

Set new memory size 
Change to suit 



■** Start of ccmnand decoder 



NAMCMD CP 0F4H 

JP Z,SWAP 

CP 0E6H 

JP Z,DECHEX 

CP 0E7H 

JP Z,HEXDEC 

JP SNERR ,. - 

'.** ** DECHEX ** ** 

;** By Alan R. Moyer ** 

;** 07/02/81 

.** Version 2.1 

. ** 



;ls it STRS? 
;Yes, go process 
;Is it CVI? 
;Yes, go process 
;Is it CVS? 
;Yes, go process 
;And print error 



.** 

,## 
.** 
.** 

.** 

* 

.** 
■ ** 
.** 
.** 
.** 
.** 



** 
** 



DECHEX is a machine language routine that will 
place a ASCII hex representation of an integer into 1 
a specified string variable. It is executed as; 

NAME CVI A?, 255 ** 

-or- 
NAME CVI A$(X),(Al-fB#)*C%+2 ** 

(The CVI stands for Convert from Integer) ** 
The string variable will be created if it does not ** 
exist. This routine checks the string work space ** 
and will issue a 'garbage collection' if work 
space is insufficient. After that if there is 



** 



** 
** 
** 
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00840 ; ** still not enough work space, an OUT OF STRING ** 
00650 ;** SPACE error will occur. The numeric expression can ** 
;** can consist of variables and numeric values. This 
;** expression will be evaluated and turned into an 
;** integer value. This integer value will be in 
;** standard RS BASIC integer convention, with values 
;** over 32767 to be expressed as negative numbers. 
;** Use the formula on page 8/6 of the Level II BASIC 
;** Reference Manual (second edition) for number 
;** conversions. ** 

■ft******************************************************* 



FEEF 
FEF0 
FEF3 
FEF6 
FEFA 
FEFB 
FEFD 
FF00 
FF01 
FF02 
FF05 
FF06 
FF09 
FF0C 
FF0F 
FF13 
FF15 
FF16 
FF17 
FF18 
FF19 
FF1B 
FF1C 



D7 

CD0D26 

CDF40A 

ED53F6FF 

E5 

3E04 

CD5728 

El 

23 

CD022B 

E5 

2AD440 

CDD2FF 

21D340 

ED5BF6FF 

0603 

7E 

12 

23 

13 

10FA 

El 

C9 



FF1D D7 
FF1E CD0D26 
FF21 CDF40A 
FF24 ED53F6FF 



00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 



•* 
** 
** 

44 

44 
44 
44 



DECHEX RST 10H ;Get next non blank char 

CALL VARPTR ;Get VARPTR of VAR 

CALL CHKVAR ;Make sure it's a 5 

LD {PTR1),DE ; Save the VARPTR 

PUSH HL ;Save the Char Pointer 

LD A, 4 ;Need 4 chars work space 

CALL STORM ;Roan? (40D4)=>work space 

POP HL ;HL=>next char 

INC HL ;Junp over the delimiter 

CALL EVAINO ;Eval the expr. DE=CIHT{expr) 

PUSH HL ;Save the char pointer 

LD HL, (40D4H) ;HL=>S work space 

CALL INTHEX ; Convert DE to HEX$ 

LD HL,40D3H ;Get the $ data 

LD DE,(PTR1) ;Get the $ VARPTR 

LD B,3 ;Data counter 

AGAIN LD A,(HL) ;A=HEX? data 

LD {DE),A ;VARPTO=HEX$ data 

INC HL ;HL=>next HEX? data 

INC DE ;DE>=next VARPTR address 

EJNZ AGAIN ;Do again if not done 

POP HL ;Done, restore char pntr 

RET jAnd return to BASIC 

***************4*4*****444 44444****4*444***444*4**4*4444 



** 
4* 
4* 
44 
44 



** SWAP ** 

By Alan R. Mover 

06/20/81 

Version 1.1 



** 

4* 
** 
** 
** 
** 
** 
** 
44 
4* 
** 
4* 



** SWAP is a machine language routine that will SWAP 
** the contents of two string variables as a direct 
** command from BASIC. It is executed asr 

** NAME STR$ A$,B$ 

** -or- 

** NAME STR$ A$(Z%),B$(B#,Cl+2) 

** The string variables can be simple string var- 

** iables or array string variables. Any number of ** 

** array dimensions can be used. For array variables, ** 

** the subscript descriptors can be numeric variables.** 

** This routine will swap the string variables WITH- ** 

** OUT USING ANY STRING WORKSPACE, WHICH MEANS THAT ** 

** GARGAGE COLLECTION WILL NEVER HAPPEN WHEN USING ** 

** THIS CC*KAND1 Both string variables will be ** 

** created if they do not exist, and their null ** 

** contents will be swapped. ** 

**************************4*4* 444444*4**444******4****44 



SWAP 



RST 


10H 


CALL 


VARPTR 


CALL 


CHKVAR 


LD 


(PTR1),DE 



;Get next non blank char 
;Get VARPTR of 1st VAR 
;Make sure it's a $ 
,-Save the VARPTR 

Program continued 
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FF28 

FF2C 

FF2F 

FF30 

FF33 

FF36 

FF3A 

FF3E 

FF41 

FF45 

FF49 

FF4C 

FF50 

FF54 

FF57 



DD21F8FF 

CDBCFF 

23 

CD0D26 

CDF40A 

ED53FBFF 

DD21FDFF 

CDBCFF 

DD2AP6FF 

FD21FDFF 

CDBFFF 

DD2AFBFF 

FD21F8FF 

CDBFFF 

C9 



FF58 

FF59 

FF5C 

FF60 

FP63 

FF65 

FP67 

FF68 

FF6B 

FF6E 

FF72 

FF73 

FF74 

FF76 

FF78 

FF79 

FF7A 

FF7B 

FF7C 

FF7D 

FF7E 

FF81 

FF82 



D7 

CD0D26 

ED53F6FF 

3AAF40 

FE02 

2046 

23 

CD3723 

CDF40A 

ED5B2141 

E5 

1A 

FE05 

303A 

47 

13 

EB 

5E 

23 

56 

210000 

29 

29 



01450 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 



LD 

CALL 

INC 

CALL 

CALL 

LD 

LD 

CALL 

LD 

LD 

CALL 

LD 

LD 

CALL 

RET 



IX.STRNGl 

STORE 

HL 

VARPTR 

CHKVAR 

(PTR2),DE 

IX,STRNG2 

STORE 

IX, (PTR1 ) 

IY,STRNG2 

SWITCH 

IX,(PTR2) 

IY,STHNG1 

SWITCH 



;IX=> ? data buffer 
; Store the $ data 
;Jurtp over the delimiter 
;Get VARPTR of 2nd VAR 
;Make sure it's a $ 
;Save the VARPTR 
;IX=> $ data buffer 
; Store the ? data 
;IX=> VARPTR of 1st VAR 
;IY=> 2nd VAR data 
; Switch the $ data 
;IX=> VARPTR of 2nd VAR 
; IY=> 1st VAR data 
; Switch the $ data 
;And all done I 



;** ** HEXDEC ** ** 

07/06/81 ** 

Version 1.0 +* 

** 

** 



. ** 
.** 



; HEXDEC is a machine language routine that will 

! convert hexadecijnal numbers contained in string 

; variables into their integer equivalents. The 

r caimand is executed as such; 

••** NAME CVS AI,A$ 

' * -or- 

f** NAME CVS A%, "FF"+A$ 

; ** (The CVS stands for Convert frctn String. ) 

'*** ThS lnteger va ^iable will be created if it does 

;** exist. The hexadecimal range is 0000 to FFFF. 

; * The integer variable will be created if it does 

; not exist. The string characters can be up to four ** 

; hexadecimal characters contained in either a ** 

; * string variable or string literal. *• 

;** The integer equivalent will be expressed as stand- ** 

; ard RS BASIC convention, with values over 32767 to ** 

; ***SS„.f3?E essed as negative numbers. ** 



** 
** 
** 
*•* 
** 
** 
** 
** 
** 
** 
** 



HEXDEC 



HEXBIN 



RST 
CALL 

LD 

LD 

CP 

JR 

INC 

CALL 

CALL 

LD 

PUSH 

LD 

CF 

JR 

LD 

INC 

EX 

LD 

INC 

LD 

LD 

ADD 

ADD 



10H 

VARPTR 

(PTR1),DE 

A, (NTF) 

2 

NZ.TMERR 

HL 

EVALST 

CHKVAR 

DE, (AOCUM) 

HL 

A, (DE) 

5 

NCOVERR 

B,A 

DE 

DE,HL 

E, (HL) 

HL 

D,(HL) 

HL,00H 

HL,HL 

HL.HL 



Get next non blank 

Get VARPTR of variable 

Save the VARPTR 

Check the MTF 

Was it an integer? 

No, output an TM error 

Skip over the delimiter 

Evaluate the expression 

Make sure it's a 5 

Get VARPTR data 

Save char pointer 

Get length of $ 

Is 5 length < 5 chars? 

No, output an OV error 

Put char count in A 

DE=>chars 

HL=>chars 

Put ADDR of chars 



;into DE 

;Zero the binary count 

;Bump the 

; number left 
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FF83 
FF84 
FTS5 
FF86 
FF38 
FF8A 
PF3C 
FF8E 
FF90 
FF92 
FF94 
FF96 
FF98 
FF9A 
FF9B 
FF9C 
FF9D 
FF9F 
FFA0 
FFA3 
FFA4 
FFA5 
FFA6 
FFA7 



FFAB 
FFAA 
FFAD 
FFAF 
FFB2 
FFB4 
FFB7 
FFB9 



29 

29 

1A 

FE3A 

3808 

FE41 

3829 

E6DF 

D607 

D630 

3821 

FE10 

301D 

B5 

6F 

13 

10E2 

EB 

2AP6FF 

73 

23 

72 

El 

C9 



1E02 

C3A219 

1E18 

C3A219 

1E0A 

C3A219 

1E08 

C3A219 



FFBC 
FFBD 
FFBF 
FPC2 
FFC5 
FFC8 
FFCB 
FFCE 
FFD1 



D5 

FDE1 

ED7E00 

EO7700 

FD7E01 

DD7701 

FD7E02 

DD7702 

C9 



FFD2 7A 
FFD3 CDD7FF 
FFD6 7B 
FFD7 F5 
FFD8 CB3F 



02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 



NOATOF 



Am 

AID 

LD 

CP 

JR 

CP 

JR 

AND 

SUB 

SUB 

JR 

CP 

JR 

OR 

LD 

INC 

DJNZ 

EX 

LD 

LD 

INC 

LD 

POP 

RET 



HL,HL 

HL,HL 

A, (DE) 

3AH 

C,NCATOF 

41H 

CFCERR 

0DFH 

7 

30H 

CFCERR 

10H 

NCFCERR 

L 

L,A 

DE 

HEXBIN 

DE,HL 

HL,(PTR1) 

(HL),E 

HL 

(HL),D 

HL 



,*four 

; places 

;J^dhar 

; Higher than a "9"? 

?No 

;Lower than UC A? 

;Yes 

; Adjust if LC 

; Adjust for A-F 

; ASCII HEX to Binary 

; Error if < 

;> 15? 

;Yes 

;Add with current # 

; Put total into L 

;DE=>Next char 

;Do again if chars left 

jDE=lnteger value 

;HL=>VARPTR of Int VAR 

7 (HL)=LSB 

(HL)=MSB 

Restore char pointer 

And return 



.ft******************************************************* 



. ** 

. A******************************************************* 



NAME COMMAND SUBROUTINES 



SNERR 



TMERR 



OVERR 



FCERR 



LD 


E,2 


JP 


ERROR 


LD 


E,24 


JP 


ERROR 


LD 


E,10 


JP 


ERROR 


LD 


E,8 


JP 


ERROR 



;SN error code 



;TM error code 



tCV error code 



;PC error code 



;*** STORE and SWITCH subroutine 
;*** Stores data in a working buffer. 
;*+* IY=>Source ADDR 
;*** IX=>>Destination ADDR 
;*** A is destroyed 



STORE 



SWITCH 



PUSH 

POP 

LD 

LD 

LD 

LD 

LD 

LD 

RET 
;*** INTEGER TO HEX$ UTILITY 
; *** DE contains integer value 
;*** HL=>buffer to contain the 
.*** A ^ s destroyed 



DE 

IY 

A, (IY+0) 

(IX+0),A 

A, (IY+1) 

(IX+1),A 

A, (IY+2) 

(IX+2),A 



INTHEX LD 

CALL 
LD 

CONVRT PUSH 
SRL 



A,D 

CCNVRT 

A,E 

AF 

A 



Put the VARPTR into 

the IY register 

A contains $ length 

A contains $ LSB 

A contains $ MSB 

And return 



to be converted 
HEX? 



;Af=MSB 

; Convert it 

;A=LSB 

;Save the digits 
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FFDA CB3F 
FFDC CB3F 
FFDE CB3F 
FFE0 CDEEFF 
FFE3 77 
FFE4 23 
FFE5 Fl 
FFE6 E60F 
FFE6 CDEEFF 
FFEB 77 
FFEC 23 
FFED C9 
FFEE C630 
FFF0 FE3A 
FFT'2 F8 
FFF3 C607 
FFF5 C9 



FFF6 0000 
0003 

FFFB 0000 
0003 

FECE 

00000 TOTAL 



02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
ERRORS 



SRL 
SRL 
SRL 
CALL 
LD 
INC 
POP 
AND 
CALL 
LD 
INC 
RET 
CHEKIT ADD 
CP 
RET 
ADD 
RET 



A 

A 

A 

CHEKIT 

<HL),A 

HL 

AF 

0FH 

CHEKIT 

(HL),A 

HL 

A,30H 
03AH 
M 
A,07H 



; Convert to ASCII 
,-lst ASCII into buffer 
;Bunp buffer pointer 
;Get original digits 
;Maak off high digits 
; Convert to ASCII 
,*2nd ASCII into buffer 
;Buiip buffer pointer 

; Convert 

;0-9? 

;Yes, return it 

; Correct for A-F 

;S, return it 



'" * WORKSPACE ** 

PTR1 DEFW 0000H ;General storage 

3_ ;lst $ VARPTR storage 

000011 r2nd $ VARPTR data 
3 ;2nd $ VARPTR storage 



STRNG1 DEFS 
PTR2 DEFW 
STRNG2 DEFS 



END 



START 



;Auto start 



Program Listing 2 

20 '** ^ n rS^iTl^TJ 0r ? e NAME STR $/CVI/CVS comand 
30 DEFIOT D,S den0nstates the STRS (SWAP) function 

40 CLEAR 6500* 

60 S 6783 ' 225: «**»"«•»* ■** install new name vector 

70MMA1$(D),A2$(D),A3$(D),B15(D),B2 S (D),B35(D},C1 $ (D),C2$(D),C 

80 CLS: PRIOT"l n itializing strings" 

90 FOR X^3 TO D 

100 ) Al$(X)^ R lNG$(RND(l0),R N D( 25 ) +65h A2$(X)= A 1$(X) , A3$(X)=*1 

110 ) Bl$(x)=STRl tK?(RND(10 ,, RND(25)+65)! B2?(X)=B1$(X): 335^,^ 

1» ClSfXj-enmiGSdWDdfl), RND<25).«;5): C2$(X)^1$(X) ! C3$(X)^1 

130 NEXT X 

140 A1=0: A2=0: A3=0: B1=0: B2=0: B3=0- Cl-0. C?=fl. r?=a 

150 CLS , PRINT-Which method ?? - X 2 OR ?•' 2? 

!3 STS^I ^i-oraS^-oraW^" tL lw 

l IV X-X+l : IF X>4 THEN X=l 

180 IF X=l THEN PRINT@13," "; : PRIOT-027 "V- • nqpr.v, a*™, 
SK'." ;! PR ™3," ?? V : ELSTx^'THEK^I^r 2 ^P 
RIOT*18,"1";: ELSE PRIWT@27, "";: PRINT@21, "2"- """- " P 

190 FOR Y=0 TO 50: NEXT :GOTO 160 V ^' 2 ' 

?S£?m2»; CLS! TO « 15 '" B ««« #-M FMWW2.»IWE STRIN 
210 GOSUB 590', PRISTS, "Starting free string wr k space =»; 
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220 PRINT @192, "Please wait. . .and wait... (garbage collection ta 

king place}"; j PRINT@162,FRE(X?) ; 

230 PRINT@192,CfiR$(30) 

240 GOSUB 590 

250 PRINT@256, "Press *ENTER* to start": X=0 

260 A$=INKEY$: IF A$=CHR?(13) THEN 300 

270 X=X+1: IF X>2 THEN X=l 

280 IF X=l THEN PRINT@262," "; : ELSE PE?INT$262, "*ENTER*"r 

290 FOR Y=l TO 50: NEXT: GOTO 260 

300 PRINT@256,CHR$(30}: ON M GOSUB 360,420,530 

310 PRINT@704, "Press *ENTER* to continue";: X=# 

320 A$=INKEY?: IF A$=CHR$(13) THEN PRINT@256,CHR$(31) : GOTO 150 

330 X=X+1: IF X>2 THEN X-l 

340 IF X=l THEN PRINT@710, " ";: ELSE PRINT@710, "*ENTER*"; 

350 FOR Y=l TO 50: NEXT: GOTO 320 

360 PRINT0256, "Swapping variables using a dumny variable" 

370 PRINT RIGHT? {TIMES, 8) 

380 FOR X=0 TO D : PRINT@84,Xr :GOSUB 590 

390 D$=Al${X)sAl$(X)=Bl$(X):Bl$(x)=<:l${X):Cl$(X)=D$ 

400 NEXT X 

410 PRINT@384, RIGHT? (TIME$,8): PRINT'Done I" ; RETURN 

420 PRINT@256, "Swapping the strings using the VARPTR routine" 

430 PRINT RIGHT? (TIME?, 8) 

440 FOR X=0 TO D : PRINT@84,X; :GOSUB 590 

450 A1=PEEK(VARPTR(A2$(X) ) ) iA2=PE£K(VARPTR{A2?(X) )+l) :A3=PEEK(VA 

RFTR(A2?(X))+2) 

460 B1=PEEK(VARPTR(B2S(X))):B2=PEEK(VARPTR(B2$(X))+1)!B3=PEEK(VA 

RPTR<B2?(X))+2) 

470 C1=PEEK(VARPTR{C2?(X) ))tC2=PEEK(VARPTR(C2$(X) )+l):C3=PEEK{VA 

RPTR{C2$(X))+2) 

480 POKE ( VARPTR (A2? (X) ) ) , Bl :POKE(VARPTR(A2? (X) )+l ) , B2 :POKE(VARPT 

R(A2?(X))+2),B3 

490 POKE(VARPTR{B2$(X))),Cl:POKE(VARPTR(B2?{X))+l),C2!POKE{VARPT 

R(B2?(X))+2),C3 

500 P0KE(VARPTR{C2${X))),A1:P0KECVARPTR(C2$(X))+1),A2:P0KE(VARPT 

R(C2$(X 

510 NEXTX 

520 PRINT<§384,RIGHT$(TIME$,8): PRINT'Done 1 " : RETURN 

530 PRINT@256, "Swapping variables using the NAME conmand" 

540 PRINTRIGHT$(TIME?,8) 

550 FORX=0TOD:PRINT@84,X; : GOSUB 590 

560 NAME STR$ A3$(X), B3$(X) : NAME STR? B3?(X),C3?(X) 

570 NEXT X 

580 PRINT@384, RIGHT? (TIME$ , 8 ) : PRINT"Donel " : RETURN 

590 PRINT@100, (PEEK(SdH40D6)+PEEK{SH40D7)*256)-(PEEK{SH40A0)+PEEK 

(&H40Al)*256)r :RETURN 



Program Listing 3 

10 '** Demonstration program for the NAME STR$/CVI/CVS ccmnand 

20 '** This routine demonstrates the CVI (DECHEX) function 

30 CLS: PRINT@192,"Initializing" 

40 POKE 16783,221: POKE 16784,254 '** Install new name vector 

50 DEF FN AD(A) =A+(A> 32767 )*65536 '** Convert to integer 

60 DEFINT X,C,Y 

70 DIM HX$(15) 

80 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

90 FOR X=0 TO 15 s READ HX?(X): NEXT X Program continued 
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100 C=100 

110 GOSUB 390 

120 CLS: GOSUB 440: X=FRE(Z$) 

130 PRINT@256, "Decimal to Hexadecimal conversion using BASIC" 

140 PRINTRIGHT$(TIME$,8) 

150 FOR X=l TO C 

160 D=PEEK(X)+PEEK(X+1)*256 

170 B0=INT{D/4096) 

180 B1=INT{ (D-B0*4096)/256) 

190 B2=IWr((D-((B0*4096)+(Bl*256)))/l6) 

200 B3=D-((B0*4096)+(B1*256)+(B2*16)) 

210 PRIOT078,HX$(B0)?HX?(Bl) ? HX?(B2)rHX$(B3); 

220 PRINT@95,X; 

230 NEXT X 

240 PRINT@384,RIGHT$(T1ME$,8) 

250 PRINT'Donel" 

260 PRINT: GOSUB 390 

270 CLS: GOSUB 440: X=FRE(Z?) 

280 PRINT@256, "Decimal to Hexadeciinal conversion using NAME CVI" 

290 PRINTRIGHT$(TIME?,8) 

300 FOR X=l TO C 

310 NAME CVI AS, FN AD(PEEK(X)+PEEK(X-t-l)*256) 

320 PRINT@78,A$; 

330 PRINT@95,X; 

340 NEXT X 

350 PRINT@384,RIGHT$(TIMES,8) 

360 PRIWT"Donel" 

370 PRINT: GOSUB 390 

380 GOTO 120 

390 X0={PEEK(16416)+PEEK(16417)*256)-15360: PRINT@X0, "Press *ENT 

ER* to continue";: X=0 

400 A$=INKEY$. IF A$<HR$(13) THEN RETURN 

410 X=X+1: IF X>2 THEN X=l 

420 IF X=l THEN A$=" "s ELSE A5="*ENTER*" 

430 PRINT@X0+6,A$;:' FOR Y=l TO 50: NEXTY: GOTO 400 

440 PRINTS 10, "HEX VALUE STEP NUMBER"; 

450 RETURN 



Program Listing 4 

10 '** Demonstration program for the NAME STRS/CVI/CVS conntand 

20 ' ** This routine demonstrates the CVS (HEXDEC) function 

30 CLS: PRINT@192, "Initializing": CLEAR 500 

40 POKE 16783,221: POKE 16784,254 '** Install new name vector 

50 DEF FN AD(A)=A+(A>32767)*65536 ' ** Convert to integer 

60 DEF FN HX(A$)=ASC(A$)+^18-7*(A$>"9") 

70 DEFINT X,C,Y: DIM A$(100) 

80 DIM HX$(15) 

90 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

100 FOR X=0 TO 15: READ HX$(X): NEXT X 

110 C=100 

120 GOSUB 530: X=FRE(Z$) 

130 FOR X=l TO C 

140 D=PEEK{X)+PEEK(X+1)*256 

150 B0=INT(D/4096) 

160 B1=INT( (D-B0*4096)/256) 

170 B2=INT( (D-( (B0*4096)+(B1*256) ) )/l6) 
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180 B3=D-( (B0*4096)+(B1*256)+<B2*16)) 

190 A${X)=HX$(B0)4HX?(Bl)-tfK$(B2)-HK?(B3) 

200 PRINT@78,A$(X); 

210 PRIMT@95,X; 

220 NEXT X 

230 PRINT"Donel" 

240 PRINT j GOSUB 480 

250 CLS: GOSUB 530: X=FRE(A$) 

260 PRINT@256, "Hexadecijnal to Decimal conversion using BASIC" 

270 PRINTRIGHT$(TIME$,8) 

280 FOR X=i TO C 

290 N=d: TOR Y=l TO LEN(A${X)): N=N*16+FH HX(MID$(A$(X),Y,1) ) : N 

EXT Y: M=FN AD(N) 

300 PRINT@78,N; 

310 PRINT@9S,X; 

320 NEXT X 

330 PRINT@384,RIGHT$(TIME5,8) 

340 PRINT"Done!" 

350 PRINT: GOSUB 480 

360 CLS: GOSUB 530s X=FRE(A$) 

370 PRINT@256, "Hexadecimal to Decijnal conversion using NAME CVS" 

380 PRINTRIGHT?(TIME$,8) 

390 FOR X=l TO C 

400 NAME CVS A%,A$(X) 

410 PRINT@78,A${X); 

420 PRINT@95,X; 

430 NEXT X 

440 PRINT@384,RIGHT$(TIME$,8) 

450 PRINT"Donel" 

460 PRINT: GOSUB 480 

470 GOTO 250 

480 X0=(PEEK(16416)+PEEK(16417)*256)-15360: PRINT@X0, "Press *ENT 

ER* to continue"?: X=0 

490 A$=INKEY$: IF A$<HRS{13) THEN RETURN 

500 X=X+1 : IF X>2 THEM X=l 

510 IF X=l THEN A$=" ": ELSE AS="*EWTER*" 

520 PRINT@X0+6,A$; t FOR Y=l TO 50: NEXTY: GOTO 490 

530 PRINT<ai0, "HEX VALUE STEP NUMBER"; 

540 RETURN 



Program Listing 5 

50000 '** NAME STR$/CVT/CVS (SWAP/DECHEX/HEXDEC) caimand using B 

ASIC's NAME command 

50010 M=65244 ' for 48K, 48860 For 32K, 32476 for 16K 

50020 X2=INT(M/256): Xl=«-X2*256: POKE 16561, XI: POKE 16562, X2: 

CLEAR 50 'This sets memory size frcm within BASIC 

50030 SA=-291 'for 4SK, -16675 for 32K, 32477 for 16K 

50040 FOR X= SA TO SA+290: READY 

50050 IF Y=888 THEN Y=254 'for 48K, 190 for 32K, 126 for 16K 

50060 IF Y=999 THEN Y=255 ' for 48K, 191 for 32K, 127 for 16K 

50070 POKE X,Y: NEXT X 

50080 POKE 16783,221: POKE 16784,254 'for 48K, 190 for 32K, 126 

for 16K ** Install new NAME vector 

50090 DATA 254,244,202,29,999,254,230,202,239,888,254,231,202,88 

,999 

50100 DATA 195,168,999,215,205,13,38,205,244,10,237,83,246,999,2 
29 

Program continued 

THE REST OF 80 / 71 



50110 DATA 62,4,205,87,40,225,35,205,2,43,229,42,212,64,205 
50120 DATA 210,999,33,211,64,237,91,246,999,6,3,126,18,35,19 
50130 DATA 16,250,225,201,215,205,13,38,205,244,10,237,83,246,99 

9 

50140 DATA 221,33,248,999,205,188,999,35,205,13,38,205,244,10,23 

7 

50150 DATA 83,251,999,221,33,253,999,205,188,999,221,42,246,999, 

253 

50160 DATA 33,253,999,205,191,999,221,42,251,999,253,33,248,999, 

205 

50170 DATA 191,999,201,215,205,13,38,237,83,246,999,58,175,64,25 

4 

50180 DATA 2,32,70,35,205,55,35,205,244,10,237,91,33,65,229 
50190 DATA 26,254,5,48,58,71,19,235,94,35,86,33,0,0,41 
50200 DATA 41,41,41,26,254,58,56,8,254,65,56,41,230,223,214 
50210 DATA 7,214,48,56,33,254,16,48,29,181,111,19,16,226,235 
50220 DATA 42,246,999,115,35,114,225,201,30,2,195,162,25,30,24 
50230 DATA 195,162,25,30,10,195,162,25,30,8,195,162,25,213,253 
50240 DATA 225,253,126,0,221,119,0,253,126,1,221,119,1,253,126 
50250 DATA 2,221,119,2,201,122,205,215,999,123,245,203,63,203,63 

50260 DATA 203,63,203,63,205,238,999,119,35,241,230,15,205,238,9 

99 

50270 DATA 119,35,201,198,48,254,58,248,198,7,201,0,0,254,58 

50280 DATA 248,0,0,201,28,108 



Program Listing 6 

50000 '** NAME CVS (HEXDEC) ccmnand using BASIC'S NAME conmand 

50010 M=65429 ' for 48K, 49045 for 32K, 32661 for 16K 

50020 X2=IOT(M/256): X1=M-X2*256 sPCKE 16561, XI: POKE 16562.X2: 

CLEAR 50 "This sets memory size automatically from within BASIC 

50030 SAf-106 ' for 48K, -16490 for 32K, 32662 for 16K 

50040 FOR X= SA TO SA+105: READY 

50050 IP Y=999 THEN Y=255 ' for 48K, 191 for 32K, 127 for 16K 

50060 POKE X,Y: NEXT X 

50070 POKE 16783,150: POKE 16784,255 'for 48K, 191 for 32K, 127 

for 16K ** Install new NAME vector 

50080 DATA 254,231,32,80,215,205,13,38,237,83,254,999,58,175,64 

50090 DATA 254,2,32,70,35,205,55,35,205,244,10,237,91,33,65 

50100 DATA 229,26,254,5,48,58,71,19,235,94,35,86,33,0,0 

50110 DATA 41,41,41,41,26,254,58,56,8,254,65,56,41,230,223 

50120 DATA 214,7,214,48,56,33,254,16,48,29,181,111,19,16,226 

50130 DATA 235,42,254,999,115,35,114,225,201,30,2,195,162,25,30 

50140 DATA 24,195,162,25,30,10,195,162,25,30,8,195,162,25,0 

50150 DATA 



Program Listing 7 

50000 '** NAME CVT (DECHEX) oorrttend using BASIC'S NAME ocrnnand 

50010 M=65442 'for 48K, 49058 for 3 2K, 32674 for 16K 

50020 X2=INT(M/256): X1=M-X2*256: POKE 16561, XI: POKE 16562, X2: 

CLEAR 50 'This sets memory size automatically from within BASIC 

50030 SA=-93 'for 48K, -16477 for 32K, 32675 for 16K 

50040 FOR X= SA TO SA+92: READY 
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50050 IF Y=999 THEN Y=255 ' for 48K, 191 for 32K, 127 for 16K 

50060 POKE X,Y: NEXT X 

50070 PCKE 16763,163s POKE 16784,255 'for 48K, 191 for 32K, 127 

for 16K ** Install new NAME vector 

50080 DATA 254,230,40,5,30,2,195,162,25,215,205,13,38,205,244 

50090 DATA 10,237,83,254,999,229,62,4,205,87,40,225,35,205,2 

50100 DATA 43, 229,42, 212, 64,205,218,999,33, 211-.64, 237,91,254,999 

50110 DATA 6,3,126,18,35,19,16,250,225,201,122,205,223,255,123 
50120 DATA 245,203,63,203,63,203,63,203,63,205,246,999,119,35,24 

50130 DATA 230,15,205,246,999,119,35,201,198,48,254,58,248,198,7 
50140 DATA 201,0,0 



Program Listing 8 

50000 '** NAME STB? (SWAP) conmand using BASIC'S NAME ccnmand 

50010 M=65435 "for 48K, 49051 for 32K, 32667 for 16K 

50020 X2=INT{M/256): Xl=*4-X2*256 : PCKE 16561,X1: POKE 16562,X2s 

CLEAR 50 "This sets memory size automatically from within BASIC 

50030 SA=-100 'for 48K, -16484 for 32K, 32668 for 16K 

50040 FOR X=SA TO SA+99: READY 

50050 IF Y=999 THEN Y=255 ' for 48K, 191 for 32K, 127 for 16K 

50060 PCKE X,Y: NEXT X 

50070 POKE 16783,156: POKE 16784,255 'for 48K, 191 for 32K, 127 

for 16K ** Install new NAME vector 

50080 DATA 254,244,40,5,30,2,195,162,25,215,205,13,38,205,244 

50090 DATA 10,237,83,246,999,221,33,248,999,205,224,999,35,205,1 

3 

50100 DATA 38,205,244,10,237,83,251,999,221,33,253,999,205,224,9 
99 

50110 DATA 221,42,246,999,253,33,253,999,205,227,999,221,42,251, 
999 

50120 DATA 253,33,248,999,205,227,999,201,213,253,225,253,126,0, 

221 

50130 DATA 119,0,253,126,1,221,119,1,253,126,2,221,119,2,201 
50140 DATA 191,104,0,0,0,0,0,0,0,0 
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10 

Programming 
in Radio Shack's 
Tiny Pascal 

by John Blommers 



System Requirements: 

Model I 

Level U BASIC 

16KRAM 



Tiny Pascal can give you programs which execute quickly, up to ten 
times faster than interpreted BASIC programs. Despite the limited 
integer and integer array data types, Tiny Pascal provides all of the struc- 
tured statements of standard Pascal. With a little ingenuity, you can 
write many useful programs. Each program in this chapter contains 
comment lines and is accompanied by an explanation in the text. 

Celsius to Fahrenheit Conversion 

The integer arithmetic limitation requires that the formula F = C*9/5 + 
32 be rewritten as F= (C* 18 + 5J/10 + 32. The 1.8 has been translated to 
18/10, and adding 5 inside the parentheses before dividing by 10 results 
in rounding instead of truncation. This procedure gives the most accu- 
rate integer answer possible. 

<> CELSIUS TO FAHRENHEIT CONVERSION »0 

i> THIS PROGRAM IE WRITTEN IN RADIO SHACK'S TINY PASCAL. SINCE ONLY 
INTEGERS ARE SUPPORTED, MULTIPLICATION BY 1.6 IB DONE BY MULTIPLYING BY 
IS, ADDING 5 FOR ROUNDING, AND DIVIDING BY IB. +) 
CONST LOW = ; O FIRST TEMPERATURE TO CONVERT *> 

HIGH = 41 - i> LOST TEMPERATURE TO CONVERT *) 
F32 = 32 5 

ROUND = 5 ' <* HOUNDING CONSTANT *) 

VAR DEGREE, FLAG : INTEGER ; C* GLOBAL VARIABLES *) 
BEGIN i> OF MAIN PROGRAM *) 

WRITEC13) ; UIRITEC CENTIGRADE TO FAHRENHEIT CONVERSION' , 13, 135 ; 

WRITEC ' r 13) 5 

FOR DEGREE := LOW TO HIGH DO 
BEGIN 
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WRITECDEGREE#, ' C ' , i <: DEGREES S+ROUND) DIV 10)+F32#,*F ' > ; 

IF DEGREE THEN WRITEC13) e> CRLF IF DEGREE IS ODD *) 
END; 

WRITE <:' ' , 13> ; 

WHITEC13, ' *+* PRDGRAM STDP ***' , 13, 13) i 
END. c>: OF CELSIUS TD FAHRENHEIT PROGRAM +0 

Equation Solving Program 

This program finds all the integer solutions to the equation 6*X + 4*Y 
- 14* Z = 10 for values of X, Y, and Z from to 100. The procedure is very 
elementary; it does an exhaustive search of all possible combinations of 
X, Y, and Z. The program uses INKEY to sense if the S key has been 
pressed during execution and stops if it has. Pressing the BREAK key 
twice is an alternative. 



<> THIS PROGRAM PRINTS ALL. 1434 OR SO OF THE SOLUTIONS TO THE FORMULA 

EX+4Y-14Z=10. +:> 

VAR X, Y, Z : INTEGER s 

BEGIN 

WRITE* 13, 13, 'SOLUTIONS CX,Y,Z) TO 6X+4Y-14Z=10' , 13, 13) ! 
FOR X := TO 180 DO < + 3 EXHAUSTIVE LOOPS *) 
FOR Y s= TO 100 DO 
FDR 7 := TD 100 DP 

BEGTIM f* STRIKE THE * S' KEY TD HALT THE PRDGRflM *) 
IF INKEY = 'S' THEN BEGIN X : =100; Y:=100 ; Z : =100 END 5 
IF (6*X + 4*Y - 14*-Z = 10) THEN 

WRITEC (', Xtt, ' ' , Y#, ' ',I#, ')') 
END ; 
WRITEU3, 13, 13, 13s O SEND A FEW LINE FEEDS *) 
END. C+ OF EQUATION SOLVER PROG *> 

Square and Cube Roots 

This program lets you calculate square and cube roots for integers less 
than or equal to 32767. It does so by guessing initially and halving the 
error of its guess (by taking the middle between a low and a high limit) 
until the uncertainty is not greater than the constant tolerance. 

O SQUARE AND CUBE ROOT PROGRAM +> 

<:* PUT GLOBAL VARIABLES ETC UP HERE *.> 

VAR NUMBER : INTEGER ; 

FUNC SQUAREROOT (NUMBER, POWER) ; O PDWER=1 NO ROOT, 2=SQUARE ROOT, 

3=CUBE ROOT 
CONST TOLERANCE=l ; 

WAR UPPER, LOWER, MIDDLE, PRODUCT : INTEGER ; 
BEGIN 

LOWER :=1 ; CASE POWER OF 1: UPPER:=1 ; <* FIX LOWER, UPPER LIMITS +> 

2: IF NUMBER) 1S2 THEN UPPER:=132 

ELSE UPPER: =NUMBER; 
3: IF NUMBER) 032 THEN UPPERi=B32 

ELSE UPPER :=NUMBER 
END <> OF CASE *) ! 
WHILE CUPPER-LOWER) > TOLERANCE DO O ITERATE WHILE UNCERTAINTY *> 
BEGIN t> EXCEEDS TOLERANCE *) 

MIDDLE s= i:UPPER+LOWER) DIV 2 ; 
CASE POWER OF 1! PRODUCT := MIDDLE ; (> NO ROOT *> 

Program continued 
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2: PRODUCT J= MIDDLE+MIDDLE 5 <> SQUARE ROOT +) 
3: PRODUCT J- MIDDLE*MIDDLE*MIDDLE '>CUBE ROOT #> 
END i> OF CASE *) ! 

IF PRODUCT <= NUMBER THEN LOWER := MIDDLE O RECALCULATE THE +) 

ELSE UPPER :- MIDDLE ; <* NEW *> 
END ■ (.*■ BOUNDARIES *') 

SQUAREROOT := CUPPER+LOWER) DIV 2 <> CALCULATE FINAL ANSWER *0 
END O OF SQUARE ROOT *> ; 

BEGIN t> OF MAIN PROGRAM *0 
WRITEC ENTER A NUMBER •) ; READ f NUMBER*) ; 
war TEC THREE ROOTS ARE ' , SQUAREROOT (NUMBER, 1 >#, ' 

SQUARERO0T<:NUMBER,2>#, ' 
SQUAREROOT (NUMBER, 3>K, 13) 
END. i> OF ROOT PROGRAM *> 

Another Square Root Program 

This program demonstrates a unique approach to determining square 
roots. It counts the number of binary digits in the number and shifts half 
of them to the right as a first estimate of the square root. Three Newton 
iterations are done to produce a second estimate. This estimate is in error 
by, at most, plus or minus one, due to the round-off errors in the integer 
arithmetic. The program checks the second estimate, along with values 
of one greater and one less than the estimate. The one with the least error 
is returned as the square root of the argument passed. The following ex- 
ample calculates the square root of Y = 20: 

20 is binary 10100 and has 5 binary digits 

first estimate is 10 binary = 2 

second estimate (after 3 Newtons) is 4 

4- 1=3 error = 20- 9=11 

4 =4 error = 20-16= 4 (best of the three] 

4+ 1=5 error = 20-25= -5 

final answer = 4 



VAR Z. I 


: INTEGER 


; <; + 


SQUARE ROOT PROGRAM +■) 






FUNC SQRT (YD 5 














VAR X.E1 


E2.E3, I, YY : 


NTEDER ; 








BEGIN 
















IF Y < 


3 THEN Y : = 


= ! 


(* 


TRAP NEGATIVE ARGUMENTS +0 






CASE 


Y OF 














0, 1 : SQRT := Y 




<*■■ 


TRIVIAL CASES * 








ELSE 


BEGIN 














I : = 


1 ; YY := 


Y ? 












WHILE 


YY > DO 


BEGIN 


<> COUNT tt BINARY DIGITS 


IN 


ARGUMENT *) 






I 


= 


1 + 1 ! 












YY 


: = 


YY SHR 1 












END 












X : = 


Y SHR <: I SHR 1 


J 


; O FIRST ESTIMATE OF ROOT 


*> 


FOR I 


:= 1 TO 3 


DO X 


: = 


Y DIV CX+X) + X 


SHR 1 5 <* 


3 NEWTONS *> 


El : = 


ABSCY-SQR 


:x-d i 


; 


<> THREE ERRORS 


CALCULATED 


*) 




E2 : = 


fiBSCY-SQRCX >: 












E3 : = 


abs<:y-sqr<x+i> 


3 










SQRT 


:= X ; 














IF El 


< E2 THEN 


SORT 


• = 


X-l ; <>. RETURN 


SQRT WITH LEAST ERROR *0 


IF E3 


< E2 THEN 


SQRT 


i~ 


X + l 









END C* ELSE +0 
END i> CASE *) 
END; O OF SQRT *') 
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BEGIN C* MAIN USER PROGRAM BEGINS HERE *) 

FOR I := TQ 127 DO BEGIN O PLOT THE SQRT FUNCTION *) 
PLOT C 1 . 47-4*SQRT f I > , 1 ) 
END ; 
z := i ; 

WHILE Z > -1 DO BEGIN c> LET USER TYPE IN VALUES TO TEST *) 
WRITEC ENTER Z ' ) ; 
READCZtt) ; 

WRITEC SORT C , Z»t, ' )= ' ■ SORT f Z ) #, 13, \?.t ; 
END 
END. <> OF SQUARE RDOT PROGRAM *) 



Random Number Generator with Plotting 

This program uses a function that generates a pseudo-random num- 
ber, RND. The function depends on the overflow of integer multiplica- 
tion. Note that when the result of such a multiplication is negative, the 
sign bit must be cleared with the MOD function. The number is not 
made positive with the ABS function. Run the program with a few dif- 
ferent seeds to see just how pseudo-random the sequence is. 



i> RANDOM NUMBER GENERATION FOR TINY PASCAL 

REFi PASCAL, BY DAVID L. HEI5ERMAN P 14B. TAB BOOK 1203 *) 
VAR I.RLOW, RHIGH, NUM.N : INTEGER; 

FUNC RND CRLOW, RHIGH) ; <> RETURNS RANDOM # BETWEEN RLOW ft RHIGH + ) 
VAR M,P: INTEGER! <* LOCAL VARIABLES *> 
BEGIN 
REPEHT 

M:=N*3125i i> 3125 IS THE MULTIPLIER *) 

IF M<0 THEN M: = (M AND 327B7) (.*> MASK SIGN BIT IF REQUIRED *) 
N-.*M ; P:=M; O N IS EXTERNAL TO THE RND FUNCTION *) 
P:= P MOD RHIGH 
UNTIL <P>*RLOW) AND <:p< = RHIGH) » t* QUIT IF P IS IN RANGE *) 
RND!=P » ASSIGN RND A VALUE AND RETURN *1 

END! O OF RND + ) 

BEQIN <> MAIN PROGRAM EXERCISES RND *) 

WRITEC'ENTER THE NONZERO RANDOM NUMBER SEED ' )i 

READi:N#) ! 

WRITEC HOW MANY RANDOM NUMBERS DO YOU WANT ')! 

READ CNUMtn; 

WRITEC STATE THE RANGE OF THESE POSITIVE NUMBERS ' ') ; 

READCRLOWtt, RHIGH**) ; 

FOR la—1 TO NUM DO WRITEtRNDCRLOW, RHIGH>#, ' ')i 

WRITEC 13, 'HIT A KEY TO BEGIN PLOTTING 10000 RANDOM NUMBERS')! 

READ CD; 

WRITE(2B.31); (.*■■ CLEAR SCREEN *) 

FDR l!=l TO 1000B DO PLOTt RNDC0, 127) , RNDC0,47) ,1) 
END * O OF RANDOM NUMBER PROGRAM +) 



Another Random Number Generator 

This program uses a different multiplier, MULT, and introduces an 
increment, INCR. The MOD function keeps the number in range, and 
the AND function keeps the numbers positive. The main program pro- 
duces a histogram plot of the random numbers as they are generated. 
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VAR I,J, K, SEED : INTEGER : (.#■ ANOTHER RANDOM * GENNER/ PLOTTER *) 
XARROY : ARRAY' 127> OF INTEGER I 

FUNG RAND ; 

CONST (* DEFINE THE MULTIPLIER, INCREMENT AND MODULUS *0 

MULT = 25173 ; 
INCR = 13849 ! 
MODU = 1E3B4 i 

BEGIN 

RAND := SEED ; <> APPLY THE EXTERNRL SEED *> 

SEED := <MULT*SEED+INCR) MOD MQDU 5 i> CONTROL MAGNITUDE *> 

SEED := SEED AND 32767 i> AND ENSURE NUMBER IS POSITIVE *) 

END : O OF RAND +0 

BEGIN O MAIN PROGRAM BEGINS HERE *■) 

SEED := i ! <> USER MUST PREDEFINE A SEED *> 

FOR I := TO 127 DO XBRRAY(I) := ; O CLEAR COUNTERS +■') 
FOR I := 1 TO 128*48 DO (*■ PLOTS A NICE HISTOGRAM *> 
BEGIN 

J :- RAND MOD 12S ; (.*■■ CREATE A RANDDM NUMBER *) 
XARRAYCJ) := XARRAYi:j) + l S O INCR THE COUNTER *> 
PLOT (J, XARRAY<J), 15 <*■■ PLOT THE POINT *) 
END 
END. 

Prime Number Generator Program 

This program takes an array, FLAGS, initializes each element to 1 , 
and marks all elements whose subscripts are multiples of 1, 2, 3, and so 
on. The remaining array elements are unmarked by default, and corre- 
spond to prime numbers. This algorithm is known as the Sieve of 
Eratosthenes. It runs slowly at first and picks up tremendous speed 
near the end. Prime numbers less than 8191 are printed. 

CONST SIZE=B1S0 ! NUMITS=1 ! ■>■ PRIME NUMBER PROGRAM *) 
VAR FLAGS : ARRAY (SIZE) OF INTEGER ! 
I, PRIME, K. COUNT. ITER ! INTEGER i 
BEGIN 

WRITECNUMITS*. ' ITERATIONS OF THE PROGRAM FDLLOW s'.iS) ; 
FOR ITER := 1 TD NUMITS DO 

1 <> COUNTER OF # PRIMES CLEARED *) 
TO SIZE DO FLAGS (I) := 1 i <* ALL FLAGS TRUE *0 
i= TO SIZE DO 
IF FLAGS t I) THEN 
BEGIN PRIME := I+I+3 ; 
K s= I+PRIME ; 
WHILE K (- SIZE DO 

BEGIN FLOGS OO := 13 ; t> FLAB A NON-PRIME *> 

K := K+PRIME 
END ', 
COUNT := COUNT +1 ; <> TALLY HOW MANY PRIMES GENERATED *> 
WRITE (PRIME*, ' ') 
END ; 
WRITE»13, COUNT*, ' PRIMES FOUND' , 13 J 
END 
END. <>• OF ERATOSTHENES' SIEVE *} 

Trigonometry Functions Program 

This program implements the SIN function scaled in amplitude by 
32767. It is practical, because the SIN function normally returns a float- 
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BEGIN COUNT 
FOR I 
FOR I 



ing-point number between - 1 and +1. The Tiny Pascal version re- 
turns integers between - 32767 and + 32767. 

The argument of the SIN function is given in degrees. The function 
begins by reducing the argument to between and 90 degrees and 
keeping track of a possible minus sign in the answer. Samples of the 
SIN function are stored in the procedure for every 10-degree step. The 
argument is further resolved to lie within one of these 10-degree steps. 
Then, a straight-line approximation is made to compute the returned 
value. 

A separate general-purpose interpolation function, INTER, has been 
included in the program for those who want to experiment. The left- 
hand point (XI, Yl) and the right-hand point (X2 r Y2) are joined with a 
line segment. For the x-value given, INTER returns the corresponding 
y-value lying on the line segment. 



VAR Z, I : INTEGER ; (.* SINE & COSINE FUNCTION PROGRAM *> 
FUNC INTEREX, XI, X2, Yl, Y2> ; <> INTERPOLATION FUNCTION *> 
BEGIN 

INTER := Yl + CY2-Yi:i DIV CX2-X1) * EX-X1> ; 
END ; <* OF INTER +> 



<> SINEX) FUNCTION FDR ANY X. -327E7 <= SIN <= 32767 *0 

FUNC SINEX) ; 

CDNST N=3 ; (.*■■ N+l= NUMBER OF FIXED INTER' N POINTS *> 

VAR I, XI, X2, Yl, Y2.SIGN s INTEGER i 

XARRAY : ARRAYtN) OF INTEGER ; 

BEGIN 

FOR I := TO N DO XARRAYEI) := 10*1 ! <* SETUP XARRAY*) 

X := X MOD 360 ; <> REDUCE ARGUMENT TO UNIT CIRCLE *:> 

SIGN := +1 ■, <> ASSUME 0TH QUADRANT FIRST OFF *) 

IF X < THEN SIGN := -1 S C* FOR -VE ORG'S *) 

X := ABSCX) ! f* YES, -1 MOD 3E-0 GIVES -1 !!*> 

I := X DIV 90 ; C + DETERMINE WHICH QUADRANT *•> 

CASE I OF O ADJUST TO FIRST QUADRANT *} 



l: 

2- 
3: 

a: 

5: 
6: 
7: 

B: 

35 



BEGIN 

BEGIN 
BEGIN 
BEGIN 



X 

180-X 
X-180 
3E0-X 



SIGN 
SIGN 
SIGN 
SIGN 



SIGN 
SIGN 
-SIGN 
-SIGN 



END 
END 

END 
END 



END 



» DF CftSE *) 



I := 1 ! 
WHILE X ARRAY CI > 
CASE I OF 
BEGIN Yl 



O DETERMINE X" 
< X DO I 1 



S PLACE IN XARRAY *) 
» 1 + 1 i 



(.*■ DETERMINE INTERPOL' N POINTS 10 



BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 
BEGIN 



Yl 
Yl 
Yl 

Yl 
Yl 
Yl 
Yl 
Yl 



00000 
05690 
11207 
163B4 

21062 
25101 
2B377 
30791 
322E9 



Y2 
Y2 
Y2 
Y2 
Y2 

Y2 
Y2 
Y2 



05690 

11207 
16384 
21062 
25101 
28377 
30791 
322E9 
32767 



END? E* OF CASE *> 
XI := XARRAYEI-1) 
X2 := XARRAY (I ) 
SIN i= SIGN * INTEREX, XI 
END! <:* OF SIN *) 



END 
END 
END 
END 
END 
END 
END 
END 
END 



O LEFT SIDE OF INTERVAL +) 

E* RIGHT SIDE OF INTERVAL *0 

X2. Y1.Y2) t>: LINEAR INTERPOLATE *) 



FUNC COSE X J 
BEGIN 



<> COSINE FUNCTION, REQUIRES SIN *) 



Program continued 
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COB := SIN«:X+9B1 
END ! <> OF CDS *) 



BEGIN 

Z := 1 
WHILE Z 



(* NAIN USER PROGRAM BEGINS HERE *) 



<) 



END. <>' 



933 DO BEGIN 

SSwT!* Z ENTERING 99S STOPS PROGRRM *> 
WRITECSIN r,2tt. ' )-' • SINi.Z)#,i3,l-) , 
END C* OF DO *0 
OF SIN FUNCTION DEM0N5TATQR *> 



The Exponential Function 

In integer-based Tiny Pascal, the EXP function is limited to arguments 
fromS Itsvaluee'xceeds 32767™ 

for arguments less than 0. Consequently, a simple set of CASE state 
ments is used to implement the EXP function. 

f+ . EXPONENTIAL FUNCTION FOR RADIO SHACK TINY PASCAL *> 
VAR X : INTEGER ' <* GLOBAL VARIABLE *> 
FUNC EXPfT) ; 



BEGIN 
CASE T 



OF 



00 
01 
02 
03 
04 
05 
06 
07 

oe 

09 

10 



EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 



END 

IF 

END 



t* OF 
T<0 



ELSE EXP 
CASE * > • 
THEN EXP 



= 00001 
= 00003 
= 00007 

= 00020 

= 00055 
= 001*8 
=c 00403 
= 0L097 
= 029S1 
== 03 103 
= 22027 
32767 



i> HANDLE THE GOOD ARGUMENTS -O 



i> OF FUNCTION *) 



: = 00000 



<> THIS IS THE OVERFLOW CASE *> 
(* RETURN FOR MINUS INPUTS *> 



BEGIN «>: MA!N PROGRAM BEG ^^HILE WILL BEHWE PREDICTABLY *> 

WH LE x' O 9993 DQ I <* QUIT IF USER ENTER 9999 *> 
BEGIN WRITEC ENTER AN ARGUMENT ' > ". 
READ 1 ' X#) 5 
WRITEt'EXPil' i X*. ' >=* . EXPCX)#. 13.' ; 

END 

END . <> DF EXPONENTIAL PROGRAM *) 

Morse Code Speed Timing Program 

Connect your Morse code keyer' s tone output (or your shortwave ^ 
dio receive output) to the cassette earphone input of the TRS-80, ana 
run thTs Program. It measures the code speed in words per minute 
WPMba P sed g on both the dit and the dah durations. You tell the program 
how many dits and dahs to count, up to 100. The program stores the. du- 
?a7on of Lch dit and dah in an array. The array is then sorted (simple 
bubble sort) by the SORT procedure, and the procedure AVERAGE 
^tSftc aAe duration of dits and dahs combined. This results 
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in a first, crude estimate of the code speed. Next, the sorted array is 
searched from the beginning until the spot is found where the dahs be- 
gin. Two more code speed estimates are made— one based on just dits 
and one based on just dahs. The procedures DELAY, MARK, and 
SPACE are required to perform timing and detect the presence of dits 
and dahs (MARKS) and silence (SPACES). The program was tested on a 
1.7 MHz machine. 

This program was tested on a 32K machine and may not work on a 
16K machine. Removing comments will help; use the TABs to align 
statements or eliminate them altogether. Note that the comments apply 
to the DELAY, SPACE, and MARK routines of the Morse code program. 



VAR CODE, NUM. L, TEMP, AVG, J, TOTAL : INTEGER? O MORSE CODE WPM TESTER *) 



DJTAVG, DAHfiVG, THRESHOLD, S 

X 
PROC DELAY CN) 5 
VAR K: INTEGER! 
BEGIN K:=0; WHILE K<=N DO K:=K+1 END; 



INTEGER; (*■■ SUPPORT FUNCTIONS/PROCS *0 

ARRAY U0B> OF INTEGER! 

ADDS A LITTLE DELAY FDR TIMING *) 



FUNC MARK; 
VAR Ki integer; 
BEGIN 

K : =0 ; 

REPEAT DUTPi:255. B> i 
K:=K+1 ; 
DELAY CI) 
UNTIL aNPC2S5)=127) ', 
MARK:=K 

end; <:+ of mark *) 



O MEASURE DURATION OF MARK *> 

«> LOCAL INTEGER k *■> 

<> INITIALIZE MARK COUNTER +) 

<> CLEAR CASSETTE LATCH *) 

«:* INCREMENT MARK COUNTER *> 

i> WAIT A LITTLE WHILE +0 

O EXIT IF BIT 7 STAYS OFF *) 

O RETURN VALUE OF MARK *0 



FUNC SPACE? 
VAR k: integer; 
BEGIN 
k:=0; 

repeat qutpc255, 1); 

K:=K+1! 
DELAY C 1 ) 
UNTIL UNP<255)-255> I 
SPACE :=K 
END; i> OF SPACE *0 



<* MEASURE DURATION OF SPACES *) 

<> LOCAL COUNTER DIFFERENT FROM MARK *) 



INITIALIZE SPACE COUNTER *) 

KEEP TIMING SAME AS MARK *) 

INCREMENT SPACE COUNTER *> 

WAIT A LITTLE WHILE *) 
<.+ TIL CASSETTE LATCH SEES SOMETHING *) 
<> RETURN VALUE OF SPACE *') 



<* 



PROC SORTCSTART.STOP) ; O SORTS ARRAY X FROM LOW TO HIGH POINTS *) 
VAR I, TEMP. II : INTEGER; t> LOCAL VARIABLES *) 
BEGIN <>' THE BUBBLE SORT *0 

FOR :{:= START TO CSTOP-1) DO 

FOR I I i = i TO (STOP-l)-(I-i) DO 
BEGIN TEMP: = XUI); 

IF X<II + i:> (Xi:il> THEN BEGIN X< II) *=X<I 1 + 1 > ! 

Xai + 1) :=TEMP 
END 
END 
END; <* OF SORT *> 



FUNC AVERAGE (START, STOP) ; i> GIVES AVG OF X ARRAY FROM START TO STOP *) 

VAR I, SUM : INTEGER; (* LOCAL VARIABLES *) 

BEGIN 

SUM:=0; <> INITIALIZE SUM TO ZERO *) 

FOR l:= START TO STOP DO SUMJ=BUM+X (. I ) ; (* FORM THE SUM *) 

AVERAGE := SUM DIV CSTOP-START+1 ) (* CALCULATE AVERAGE *) 

END; C* OF AVERAGE *) <* END OF SUPPORT FOR WPM PROG *) 



Program continued 

THE REST OF 80 / 81 



BEGIN O MAIN PROGRAM FOR MORSE CODE WPM MEASUREMENT *) 
WRITE<:'HOW MANY MARK SAMPLES ? ') !READ< TOTAL*) i 
IF TOTAL > 1B0 THEN TOTHL:=100i <# KEEP TOTAL LEGIT *) 

FOR J:=l TO TOTRL DO BEGIN S:=SPACE; C* IGNORE SPACES *)<* GATHER *) 

X*J>:=MARK <> AND STORE MARKS *> i> DATA*) 
END! 
FOR J: = l TO TDTAL DO WRITEC X C J) #, 9) 5 <* PRINT ROW DATA *) 
WRITE*: 13. ' ===========================================' , 13) ; 

READ (NUM) ? (.* USER HIT KEY WHEN READY TD VIEW MORE DATA *) 
SORTU, TOTAL:) ; O SORT THE ENTIRE ARRAY OF MEASUREMENTS *) 
AVG:=AVERAG£Cl, TOTAL)? C* COMPUTE GROSS AVERAGE WPM *) 
FOR J:=l TO TOTAL DO WRITECX CJ)#, 9) ; O PRINT SORTED MARK DATA *) 
WRITEi: 13. ' === = = ============= = ============ ==============' , 13) ; 

READCNUM)! <> USER HIT KEY WHEN READY TO VIEW MDRE DATA *) 

j:=0? 

REPEAT J:=J+1 <*■ FIND WHERE THE MARKS START AND SPACES END *0 

UNTIL < CXCJHAVG) OR CJ> TOTAL) ) I 

DITAVG :=AVERAGEC 1. J-l)i (+ AVERAGE LENGTH OF THE DITS *) 

DAHAVG:=AVERADE<:j,TOTAL); <> AVERAGE LENGTH OF THE DAHS +0 

THRESHOLD: = CDITAVG+DAHAVG) DIV 2! *>' MIDWAY BETWEEN DITS AND DAHS *> 

WRITE (13)! <.*■ REPORT THE FINDINGS *) 



WRITE': 
WRITE* 
WRITEC 
WRITEC 
WRITEC 



WRITEC 



AGGREGATE AVERAGE = ' , AVGtt. 13); 

DIVIDING SUBSCRIPT IN X-ARRAY ■= ' , J#, 13) ; 

DIT AVERAGE = ' , DITAVG*, 13) ! 

DAH AVERAGE = ' , DAHAVG*. 13) ■ 

THRESHOLD = '■ THRESHOLD*. 13) ! 



WRITEC WPM BASED ON DITAVG = ', C23a DIV DITAVG) *, 13) 5 



WPM BASED ON DAHAVG = '. CG59 DIV DAHAVG) *, 13) ; 



END. <> OF MORSE CODE WPM MEASURING PROGRAM *) 

Morse Code Reading Program (32K Needed) 

This program reads the audio signals from the radio receiver at the 
black earphone input plug. No special electronics is needed. It decodes a 
fair range of code speeds without special modification. 

The main program detects the longer silent period between letters in 
order to separate the dits and dahs that form letters. It counts the num- 
ber of code elements (NUM) in a character and forms a binary number 
(CODE) consisting of zeros and ones. The zeros represent dits and the 
ones represent dahs. 

Armed with NUM and CODE, the procedure DECODE scans its 
CASE statements to find the matching letter, digit, or punctuation mark. 
If a legal character is found, it is returned for printing. If there is a long 
period of silence, the program prints a blank and ceases printing until an- 
other character is received. An error causes a dollar sign to be printed. 

It's easy to add more codes to the DECODE procedure. Simply find 
the CASE for the number of code elements, NUM, and add an extra 
CASE for the CODE of that new character. The less- than sign (<), for ex- 
ample, would be assigned the code . .-- [dit dit dah dah). There are 
NUM = 4 code elements. The binary code is 0011, so CODE = 3. The 
source program is edited as follows: 

4: BEGIN 
CASE CODE OF 

0: L: = "H" ; 1: L: = "V" ; 2: L: = "F" ; 3; L; = "<" ; 



82 / THE REST OF 80 



The text of the Morse code decoder program follows: 



VAR CODE, NUM, L, TEMP, LP : INTEGER; <> SUPPORT PRQC S FDR MORSE DECODER »0 

(.* SEE WPM PROGRAM FDR INFO +0 
PRDC D£LflY<:N)i C* CREATE ft DELAY PROPORTIONAL TO N *> 
VAR K: INTEGER; 
BEGIN K:=a; WHILE K<=N DO K:=K+1 END; 

FUNC MARK; (> RETURN DURATION OF MARKS (DITS/DfiHSJ *> 

VflR K: INTEGER; 

BEGIN 

K:=0! 

REPEAT 0UTP(255, 0>; 
K : =K+ 1 ; 
DELAY (1) 
UNTIL ( , INPt255>"127)ORCK>50) 1 O EXIT IF MARK TOO LONG +0 
MARK:=K 
END? O OF MARK *) 

FUNC SPACE! <> MEASURE DURATION OF SPACES BETWEEN THE MARKS *) 
VAR K: INTEGER; 
BEGIN 
K ; =0 ; 

REPEAT 0UTPC255, 1); 
K:=K+1 ! 
DELAY CI J 
UNTIL <INP(255)=255)ORi:K)50); <* EXIT IF SPACE TDD LDNG *0 
SPACE i»K 
END; C* OF SPACE *) 



PROC DECODE; O RETURNS CHARACTER IN GLOBAL L GIVEN NUM Jt CODE *> 

BEGIN <> SUPPORTS MORSE CODE DECODER PROGRAM *> 

CASE NUM DF 

0: BEGIN L:=' ' END! t> NO CODE ELEMENTS GIVEN *) 

l: BEGIN <> ONE CODE ELEMENT GIVEN *) 



l! L: 
5: L: 



BEGIN 

CASE CODE OF 
0! L!='E' ; 
END 
END; 
BEGIN 

CASE CODE OF 

0: L = =' I' ; 
END 
END; 
BEGIN 

CASE CODE OF 
0! Li-'S' ; 
4s Ls-' D' I 
END 
END; 
BEGIN 

CASE CODE DF 
0: L!=' H' i 
hi Li='L' ; 
8: L:='B' i 
12: L:='Z' • 
END 
END? 
BEGIN 

CASE CODE OF 

0: L:='5' ! 1 
15: L!=' 1" ; IS 
2S: L:='S' ; 30 
10: BEGIN L:=' 
END 
END; 
BEGIN 



li LS='T' 

(.*■■ TWO CODE ELEMENTS GIVEN *) 

is Ls^'A' ! 2s Li-'N'i 3: Ls='M' 

C* THREE CODE ELEMENTS GIVEN +0 






2: L:-*R' 

Es L:«'G' 



3: L:=' W' 5 

7: Li-'Q' 



<> FOUR CQDE ELEMENTS GIVEN *) 



L:-'V ; 
L: = 'P* ; 
l;='X' ; 

L!='G' 



2: L: 

7: L! 

10: L: 



='F' 
■'J' 
= 'C 



11! 



=' Y' ; 



<> FIVE CODE ELEMENTS GIVEN *) 

Le='1'; 3: L:='3'! 7: L:=*2'! 
L!='e* ; 1h: Ls='?' i 
L:-'9'5 31! L:='0'; IS: L:-'/*; 
' l WRITEC (END OF MESSAGE) '> END 

C* SIX CODE ELEMENTS GIVEN *) 
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CASE CODE OF 

12: !_:='?'■ 21: L:='.*; 33! L'=' -' 5 
51: !_: = ',' 
END 
END! 
8= BEGIN <> EIGHT CODE ELEMENTS GIVEN *> 

CASE CODE OF 

0: BEGIN L:=" ' iWRITEC (ERROR) ') END 
END 
END 
END 
END! (.* DF DECODE PROCEDURE *> 



BEGIN i> MORSE CODE DECODER MAIN PROGRAM BEGINS *) 
REPEAT 

C0DE:=3 ; NUM:=a ; LP:»=L ; L:='*'; 

WHILE SPACE <=2B DO 

BEGIN TEMP:=MARK! 

if <:temp>=2h:>and<:temp<5b;> 

then code:- l+(code shl 1) else code: -code shl 11 

NUM:=NUM+1 
END! 
DECODE! 

IF CLP-' ' )SNDCL»' ') THEN ELSE WRITECL) ; LP:*L 
UNTIL 1=2 <> LOOP FOREVER *) 
END. (*■■ OF MORSE CODE DECODER PROGRAM *> 
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11 



Beginning Scrolling 

by Roger B. Wilcox 



System Requirements: 

Model! 

16KRAM 

Disk BASIC 



You don't have to have an assembler or much experience to use this 
assembly-language program (see Figure 1 ). It combines a program by 
Roger Fuller to scroll a window of lines up and down [80 Microcomput- 
ing, January 1982, p. 30), and a program by M. Keller to scroll a number 
of lines down while protecting the top and bottom lines (50 Microcomput- 
ing, February 1982, p. 264). 

This program lets you scroll forward and backward through long lists 
of data, using screen lines 3 through 14, while headings or instructions 
are protected on the top and bottom lines. It has two entry points, called 
by USRO and USR1. There is one exit point, at the end. Let's look at the 
part of the program that moves the lines on the screen up (USR1 section 
of the Program Listing). 

The key machine-language instruction is LDIR, and this section of the 
program is built around it. LDIR moves a byte of data from the HL regis- 
ter pair to the DE register pair, and checks to see if register pair BC is 
zero. If not, BC is decremented, and HL and DE are incremented. This 
sequence repeats until BC is zero. LDIR acts like a single instruction 
FOR-NEXT loop, using the BC, HL, and DE register pairs. 

If HL has the starting address of a line in video memory, DE has the 
starting address of the next line up, and BC is initialized to the number of 
bytes to move (11 lines = 704). You can see how LDIR begins with the 
first line and moves it byte-by-byte up to the next line. LDIR automati- 
cally sets itself up to transfer the next line, and continues to drop down 
through the lines on the screen until BC = at the end of screen line 14. 
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DATA 


MNEMONIC 

* * * » MOVE DOWN, USRO 


REMARKS 


33,63,63 


LD HL.16191 


End of line 13 


17,127,63 


LDDE, 16255 


End of line 14 


1,192,2 


LD BC.704 


Number bytes to move 


237,184 


LDDR 


Move lines down 


35 


INCHL 


Get start of top line 


24,13 


JR 13 (ERASE) 

* • . * MOVE UP, USR1 * * * * 


Erase top line 


33,192,60 


LDHL, 15552 


Start of line 4 


17,128,60 


LDDE, 15488 


Start of line 3 


1,192,2 


LD BC,704 


Number bytes to move 


237,176 


LDIR 


Move lines up 


213 


PUSH DE 


Put DE in stack 


225 


POPHL 

* * * * ERASE + * * * 


HL = DE 


62,32 (ERASE) 


LDA, M " 


Load A with space 


6,64 


LD B,64 


Number bytes to clear 


119 (LOOP) 


LD (HL),A 


Clear one byte 


35 


INCHL 


Next byte 


16,252 


DJNZ -4 (LOOP) 


Loop until B = 


201 


RET 

Figure 1 


Return to BASIC 



The program begins by initializing HL r DE, and BC for use by the 
LDIR instruction. [Initialization means to establish a starting value.) This 
is done with the mnemonic LD dd,nn, where dd represents a register 
pair, and nn is the least significant byte (LSB) and most significant byte 
(MSB) of the number (video memory address, in this case). The Z80 code 
listing shows the format for this instruction as OOddOOOl ,n,n. The binary 
value of dd varies from (00} to 3 ( 1 1) as follows: = BC, 1 = DE, 2 = HL, 
3 = SP. For HL the binary part of the format becomes 00 100001, which is 
decimal 33 from the conversion table. 

The BASIC program uses line 1 as a protected line, and line 2 is re- 
served as a space, so line 3 is the top of the scrolling lines. Line 4 is the 
first line to be moved up. Video memory starts at decimal address 15360, 
and line 4 starts at 15552 (15360 + 3*64), which converts to LSB=192 
and MSB = 60. Therefore, the data representing the first instruction of 
this section of the program is 33, 192, 60. This procedure is repeated for 
LD DE, 15488 (the starting address of line 3, the next line up) and for LD 
BC, 704. 

Initialization complete, the next instruction is LDIR, represented by 
decimal 237, 176. When this section of the program is called by a USR1 
statement, 1 1 lines on the screen (4- 14) are moved up one-by-one. The 
bottom scrolling line must be erased to provide a clean space to print the 
next line of data from BASIC. Either LD (DE),A or LD (HL),r can be used 
to clear the last line, but here I chose LD (HL) r r. After the last LDIR in- 



86 / THE REST OF 80 



crementing of DE, DE contains the starting address of line 14, which is to 
be erased using HL. A quick way to transfer this address to HL is to 
PUSH the value in DE into the stack and then POP it back into HL. 

The erase operation loads register A with a space (ASCII code 32), then 
loads the HL address with the contents of A. Register B is used for a byte 
counter by loading it with the number of bytes to clear (one line equals 
64 bytes). 

The B register is used for the counter because the DJNZ e instruction 
used for the loop (like GOTO in BASIC) checks B for a non-zero status, 
and also decrements B, before performing a relative jump. The value of e 
is the number of bytes to jump, and requires an explanation. In this case, 
you want to jump backward in the code to the start of the LD (HL),A in- 
struction. Counting the number of bytes to jump involves the program 
counter (PC). After an instruction is read, the PC has the address of the 
byte after the instruction. Relative jumps are counted from this byte, to 
the first byte of the target instruction. Here, it is a jump of four bytes. 
Since this is a backward jump, the value is a negative number. Negative 
numbers in assembly language must be represented by their two's com- 
plement. In simple terms that means that 255= - 1, 254= -2, etc. The 
- 4 becomes 256 - 4 = 252, and the data values for DJNZ - 4 are 16, 252. 

Just prior to the loop, HL is incremented, so the next byte is cleared 
each time the loop is performed. At this point, 1 1 lines of the screen have 
been moved up one line and the last line has been erased. A RET instruc- 
tion returns control to the BASIC program. 

The (earlier) section of the program that moves lines down is called by 
USRO. It is similar to the move-up routine, except that LDDR does the 
moving instead of LDIR. The difference is that LDDR decrements HL and 
DE. Therefore, the screen address used to initialize HL and DE must be 
the end of the lines. Line 16 is a protected line, and line 15 is a space be- 
tween the scrolling lines and the bottom. Line 13 is the first to move 
down (to line 14). The starting address of line 13 is 15360+ 12*64= 16128, 
and the end of line 13 is 16128 + 63= 16191, which is loaded into HL. 
Register pair DE, for line 14, is handled in a similar manner. BC is loaded 
again with the number of bytes in 11 lines (704). 

After the last LDDR decrement (BC = 0), HL has the address of the end 
of line 2, which is above the scrolling line. Incrementing HL moves it 
down to the starting address of the top scrolling line (line 3), so that it can 
be cleared. Since the erase routine uses HL to clear a line, it services both 
the move-up and move-down sections of the program. 

This program listing can be incorporated into other programs, and 
modified if necessary. As long as there is a blank line above and below 
the scrolling lines, the ERASE routine can be deleted; make the number 
of bytes to be moved equal to 12 lines (768 bytes), and the blank line is 
moved to clear the last scrolling line. The RET instruction replaces the 
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LD A," " instruction. The INC HL and PUSH/POP are no longer needed, 
and the 2-byte JR 13 can be replaced by a 1-byte RET. With these modifi- 
cations you should end up with a 24-byte assembly program. Change the 
POKE limits in the BASIC program to agree with the number of bytes. 



Program Listing 

5 ' *** SCROLL UP AND DOVN WITH PROTECTED LINES TOP & BOTTOM 

10 POKE16561,87:PCKE16562,127 '*** SET MEMORY SIZE TO 32599 

20 CLEAR1000:DIM PA$(26):CLS 

30 FOFX=32600TO32635:READJ:POKEX,J:NEXT 

40 DATA 33,63,63,17,127,63,1,192,2,237,184,35,24,13 

50 DATA 33,192,60,17,128,60,1,192,2,237,176,213,225 

60 DATA 62,32,6,64,119,35,16,252,201 

70 DEFUSR0«32600:DEFUSR1=32614:DEFINT K,L,X:KA=14400 
72 ■*********#***** 

74 ' * THE PROGRAM THAT CREATES THE DATA TO BE SCROLLED 

76 ' * GOES IN THIS AREA. LINE 80 IS A DEMD PROGRAM. 

80 FORX=lTO26iPA$(X)-STRING$(10,64+X):NEXT 

82 '* CHANGE LINES 90 AND 100 TO MATCH YOUR PROGRAM NEEDS. 

84 '* CHANGE PN TO EQUAL NUMBER OP DATA LINES. 

Qg i *************** 

90 PRINTS 960, "PRESS: <[> TO SCROLL UP? <"CHR$(92)"> TO SCROLL DO 

WN; <CLEAR>' FOR MENU"; 

100 PRINT@0, " ITEM NO. DATA": PRINT 

110 PORX=1TO12!PRINTTAB(20)X,PA$(X):NEXT 

120 LE*12:LT=1:PN=26 

130 K=PEEK(KA):IF K=*8 AND LT>1 THEN LT=LT-1:LE=LE-1:PRINT@USR0{1 

48),LT,PA$(LT); 

140 IF K-16 AND LE<PN THEN LB-LE+l:LT=LT+liPMNT@USRl(852),LE,PA 

?(LE); 

150 IF K-2 THEN CLSjSTOP '*** REPLACE WITH RETURN TO MENU, ETC. 

160 GOTO130 
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12 

Line Drawing 



by Daniel Lindsey System Requirements: 

Level II or Disk BASIC 

Model I or III 

WK RAM 

Editor tassem bier 



BASIC is too slow for games with graphics. Level II BASIC is flexible, 
but falls short when high-speed drawing is required. The STRINGS 
function helps, but plots only horizontal lines. 

There are ways around this problem. You can buy a BASIC compiler 
to convert programs into machine code, but this is expensive. You can 
suffer with BASIC, or you can write an assembly-language routine to 
draw lines, accessing it through the USR(n) function from BASIC. 

Operation 

Program Listing 1 draws a line between any two points on the screen 
given the (x,y) coordinates of both points. Program operation is easier to 
follow from the algorithm, outlining the flow of the program in non-com- 
puter language (Figure 1). 

To understand the program's operation, divide it into four sections: 
the BASIC interface, the slope calculator, the x- or y-plot setup, and the 
plot routine. 

The BASIC interface links the BASIC program to the plot subroutine. 
It compares the number received from the USR call to the known com- 
mand numbers, jumping to whatever routine is requested, or returning 
on an illegal command. 

Before calling the plot subroutine, each routine sets a flag signalling 
the set routine to erase or draw. If the command is a table operation, the 
program moves a pointer through the table of coordinates, drawing or 
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erasing lines. The BASIC interface provides the necessary functions that 
use the plot subroutine from a BASIC program. 

The slope of a line is the ratio between the change in y- and x-coordi- 
nates. Multiplying the slope of a line by an x-coordinate results in its cor- 
responding y-coordinate. This lets the plot routine produce the x- and 
y-coordinates along the requested line. However, as the line approaches 
vertical, the slope approaches an infinite value. If the line is at an angle 
greater than 45 degrees, the routine switches the axis along which it 
counts. 

The slope calculator gathers the necessary values, then generates the 
slope of the requested line. Since this is the entry point of the plot sub- 
routine, the routine clears the temporary storage area. It then collects the 
two x-coordinates from the table and solves for the change in x. After do- 
ing the same for the y-coordinates, the routine compares the change in x 
with the change in y. If the change in y is greater than the change in x, 
then the angle of the line is greater than 45 degrees from the x-axis, and 
the routine must plot along the y-axis to avoid a slope that is greater than 
one. Once the routine has branched on a y-plot or continued on an 
x-plot, the registers are loaded with the change in x and the change in y, 
and the division subroutine is called to calculate the slope. The slope cal- 
culator produces a slope and the axis from which it was taken. 

Figure 1. Plot Algorithm 
BASIC INTERFACE 

1. Find n of USR|n) 

2. Cases— If: 

n = then (line draw) 

set flag to draw mode 

jump to draw program 
n = 1 then (line erase) 

set flag to erase mode 

jump to draw program 
n = 2 then (table draw) 

point to table of coordinates 

set flag to draw mode 

Until second x-coordinate is greater than 127 
call draw program (as a subroutine) 
move pointer down through the table 

End Until 

return to BASIC 
n = 3 then [table erase) 

point to table of coordinates 

set flag to erase mode 

Until second x-coordinate is greater than 127 
call draw program (as a subroutine) 
move pointer down through the table 

End Until 
End Cases 
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SLOPE CALCULATOR 

1. Clear storage area 

2. Calculate the change in x-coordinates 

3. Calculate the change in y-coordinates 

4. If the change in y is greater than the change in x 

(plot along the y-axis] 
calculate slope: change in x/change in y 
jump to plot setup (y-plot) 
Else: 

(plot along x-axis) 

calculate slope: change in y/change in x 

jump to plot setup fx-plot) 

Y-PLOT SETUP 

1. Load the counter with the smaller y (starting count) 

2. Load memory with the larger y (final count) 

3. If the starting count x-coordinate is greater than the final count x-coordinate then 

signal a negative slope 
Else 

signal a positive slope 

4. Jump to plot section 

X-PLOT SETUP 

1. Load the count with the smaller x (starting count) 

2. Load memory with the larger x (final count) 

3. If the starting count y-coordinafe is greater than the final count y-coordinate, then 

signal a negative slope 
Else 

signal a positive slope 

4. Jump to plot section 

PLOT 

I. While count is less than or equal to final count: 
If plot flag is equal to x-plot then, 

load the HL registers with the (x,y) coordinates 
Else 

load the HL registers with the (y,x) coordinates 
End If [the (x,y) coordinates are the starting count and the current alternate count, 

which was set to a starting value in the setup section) 
Call set subroutine to light pixel 
If angle of line is 45 degrees then 

If slope of the line is negative then 

decrement alternate count 
Else 

increment alternate count 
Else 

If the line's slope is negative then 

add the two's complement of the slope to the alternate count 
Else 

add the slope of the line to the alternate count 
End If 

Increment count 
End While 



THE REST OF 80 / 91 



The x- or y-plot setup initializes the registers and memory necessary 
for the plot routine to generate the x- and y-coordinates between the two 
given points. The x- and y-plot routines work the same way. The only 
difference is that the x- and y-coordinates are switched. The x-plot rou- 
tine compares the two x-coordinates, storing the larger as a final count in 
temporary storage, and the smaller as an initial count in the C register. 
The y-coordinate that corresponds to the initial count is stored in the D 
register as an initial y. The DE register pair stores the y-coordinate corre- 
sponding to the larger x-coordinate. 

The D register contains the integer y-count, and the E register contains 
the decimal portion of the y-count. The routine compares the initial and 
final y, signalling a negative or positive slope in the temporary storage 
area. The routine signals an x-plot in the temporary storage, saves the 
slope in the B register, and passes control to the plot routine. The x- or 
y-plot setup prepares all values needed by the plot routine to generate a 
line. 

The plot routine uses the information gathered by the previous sec- 
tions to generate all the x- and y-coordinates between the two given 
points. Depending on the flag set in one of the setup routines, this rou- 
tine counts along an axis from the smallest x or y to the largest x or y. As 
the program loops through the routine, the slope in the B register is add- 
ed to the alternate coordinate in the DE register pair. The current (x,y) 
coordinates are sent to the set subroutine through each loop of the plot 
routine. In the case of a 45-degree angle line (slope equals one), the count 
is incremented, and the alternate coordinate is either incremented or 
decremented, depending on the sign (plus or minus) of the slope. Once 
the line has been plotted, control is returned to either BASIC or the BA- 
SIC interface. The plot routine generates the actual values of the x- and 
y-coordinates between the given points, setting pixels [picture elements) 
as it loops through the routine. 

Using the Routines 

After making a machine-readable copy of the program, you are ready 
to start using the line subroutine in your computer. Always set memory 
size to 32000 before loading the program. 

Before you can draw a line, you must store the coordinates of the end 
points of the line in memory. Simply POKE the first x in 32436, its corre- 
sponding y in 32437, the second x in 32438, and its corresponding y in 
32439. 

Once the coordinates are in memory you can erase or draw a line. To 
draw a line use USR(O), and to erase a line use USR(l). For example, to 
plot a line diagonally on the screen, POKE into 32436 and 32437, 
POKE 127 into 32438, POKE 47 into 32439, and type M = USR(0). A 
white line will instantly appear from the upper left corner to the lower 
right corner of the screen. 
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While the line functions serve many useful purposes, many applica- 
tions require figures with more than one line. The table draw functions 
(draw and erase) solve this problem. 

They are similar to the line functions with one exception. The line 
functions draw only one line, while the table functions draw as many 
lines (connected) as the table can hold. The following example will help 
you understand the operation of the table functions. 

Location Value 

32436 

32437 

32438 127 

32439 

32440 127 

32441 47 

32442 

32443 47 

32444 

32445 

32446 255 

Figure 2 

To draw a border, place the numbers shown in Figure 2 into the indi- 
cated memory locations. After these values are in memory, USR(2) will 
draw the border, and USR(3) will erase it. To build a table, simply place 
the (x,y) coordinates of the points in the order they are to be drawn in 
ascending memory. Terminate the list with a number greater than 127. 

Using these functions, you should be able to draw lines at an average 
speed of 50 lines per second. This greatly reduces the time that it takes 
for a program to set up a screen. Try the examples in Program Listings 2 
and 3. 

This program is designed for a cassette-based Model I or III machine. 
Both Level II and Model III BASIC require the starting address of any 
machine- language subroutines to be stored in memory addresses 16526 
and 16527. The usual approach is to POKE the correct values in from the 
BASIC program and then do a USR(n) to call the machine- language rou- 
tine. This program takes a different approach: lines 280 and 290 of the 
assembly-language routine take care of loading the correct value, 7D00H 
(32000 decimal) into locations 16526 and 16527. 



Program Listing 1 



00100 ; 

00110 f * LINE DRAW * 

00120 7 

00130 : By Daniel Lindsey (l/l/81) (C) Program continued 
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00140 ; 












00150 ; 




This program draws a graphics line between any 




00160 ; 


twD points on 


the screen; given the {X,Y) coordinates 




00170 ; 


of both point 


s. 






00180 ; 












00190 7 




Ccnmands: 






00200 ; 












00210 ; 


USR(0)-Draw a 


single line 






00220 ; 


USR(1)-Erase 


a single line 






00230 ; 


USR(2)-Draw a 


set of lines from a table 




00240 ; 


USR(3)-Erase 


a set of line from a table 




00250 ; 












00260 ; 




*** BASIC INTERFACE *** 






00270 ; 










408E 


00280 




ORG 


16526 




408E 007D 


00290 




DEFW 


BEGIN ; 


Define entry-USR call 


7D00 


00300 




ORG 


7D00H ; 


Actual start of program 


7D00 CD7F0A 


00310 BEGIN 


CALL 


0A7FH ; 


Get N of USR(N) 


7D03 7D 


00320 




LD 


A,L ; 


Value of N 


7D04 FE00 


00330 




CP 





Check for draw 


7D06 2815 


00340 




JR 


Z,DRAW ; 


Jump if draw 


7D08 FE01 


00350 




CP 


1 


Check for erase 


7D0A 2809 


00360 




JR 


Z,ERASE 


Jump if erase 


7D0C FE02 


00370 




CP 


2 


Check for table draw 


7D0E 2815 


00380 




JR 


Z, TDRAW 


Jump if table draw 


7D10 FE03 


00390 




CP 


3 


Check for table erase 


7D12 2829 


00400 




JR 


Z, TERASE 


Junp if table erase 


7D14 C9 


00410 




RET 




Return to BASIC 


7D15 21B37E 


00420 ERASE 


LD 


HL,ESTOR 


Pointer to flag 


7D18 3600 


00430 




LD 


(HL),0 


Set flag to erase 


7D1A C3557D 


00440 




JP 


START 


Go erase line 


7D1D 21B37E 


00450 DRAW 


LD 


HL,EST0R 


Pointer to flag 


7D20 3601 


00460 




LD 


(HL),1 


Set flag to draw 


7D22 C3557D 


00470 




JP 


START 


Go draw line 


7D25 FD21B47E 00480 TDRAW 


LD 


I Y, TABLE 


Point to coordinates 


7D29 21B37E 


00490 




LD 


HL.ESTOR 


Point to flag 


7D2C 3601 


00500 




LD 


(HL),1 


Set flag to draw 


7D2E FDCB027E 00510 TD1 


BIT 


7,(lY+2) 


Second X coordinate 


7D32 00 


00520 




RET 


NZ 


Return if X>127 


7D33 CD597D 


00530 




CALL 


START2 


•Draw line 


7D36 FD23 


00540 




INC 


IY 


•Move pointer through 


7D38 FD23 


00550 




INC 


IY 


the table 


7D3A C32E7D 


00560 




JP 


TD1 


■Junp to top of loop 


7D3D FD21B47E 00570 TERASE 


LD 


I Y, TABLE 


-Point to Coordinates 


7D41 21B37E 


00580 




LD 


HL,ESTOR 


■Point to flag 


7D44 3600 


00590 




LD 


(HL),0 


•Set flag to erase 


7D46 FDCB027E 00600 TEl 


BIT 


7,(IY+2) 


■Second X coordinate 


7D4A C0 


00610 




RET 


NZ 


■Return if X>127 


7D4B CD597D 


00620 




CALL 


START2 


; Erase line 


7D4E FD23 


00630 




INC 


IY 


;Move pointer through 


7D50 FD23 


00640 




INC 


IY 


; the table 


7D52 C32E7D 


00650 
00660 




JP 


TD1 


;Jump to top of loop 




00670 




*** END OF BASIC IWTERFAi 


ZE *** 




00680 












00690 




*** SLOPE CALCULATOR *** 






00700 










7D55 FD21B47E 00710 


START 


LD 


I Y, TABLE 


.•Pointer in table 


7D59 DD21B17E 00720 


START2 


LD 


IX, STORE 


; Pointer in temp, storage 


7D5D AF 


00730 




XOR 


A 


,■ Clear A 


7D5E DD7700 


00740 




LD 


(1X40) ,A 


rSet storage area to zero 
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7D61 
7D64 
7D67 
7D6A 
7D6B 
7D6E 
7D70 
7D71 
7D74 
7D77 
7D78 
7D7B 
7D7D 
7D7E 
7D7F 
7D82 
7D83 
7D64 
7D87 
7d8a 
7D6B 
7D8C 
7D6F 



7D92 
7D95 
7D98 
7D99 
7D9C 
7D9D 
7DA0 
7DA3 
7DA6 
7DA9 
7DAA 
7DAD 
7DB0 
7DB3 
7DB4 
7DB6 
7DBA 
7DBB 
7DBE 
7DC2 
71X3 
7DC6 
7DC9 
7DCC 
7DCD 
7DD0 
7DD1 
7DD4 
7DD7 
7DDA 
7DDD 
7DDE 
7DE1 



DD7701 

FD5600 

FD7E02 

92 

F2707D 

ED44 

57 

FD5E01 

FD7E03 

93 

F27D7D 

ED44 

5F 

92 

F28A7D 

4B 

62 

CD437E 

C3927D 

63 

4A 

CD437E 

C3C67D 



FD7E00 

FD4602 

B8 

F2A97D 

4F 

DD7000 

FD7E01 

FD6603 

C3B37D 

48 

DD7700 

FD7E03 

FD6601 

57 

1E00 

DDCB01CE 

BC 

FAC27D 

DDCB01D6 

45 

C3F77D 

FD7E01 

FD4603 

B8 

F2DD7D 

4F 

DD7000 

FD7E00 

BD6602 

C3E77D 

48 

DD7700 

FD7E02 



00750 
00760 
00770 
00780 
00790 
00600 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 



CONT1 



OCWT2 



00NT3 



XPLOT 



XP1 



XP2 



XP3 
YPLOT 



LD 


(IX+1),A 


LD 


D,(IY40) 


LD 


A,{lY+2) 


SUB 


D 


JP 


P,CONTl 


NEG 




LD 


D,A 


LD 


E,(IY+1) 


LD 


A,{lY+3) 


SUB 


E 


JP 


P,CONT2 


NEG 




LD 


E,A 


SUB 


D 


JP 


P.CENT3 


LD 


C,E 


LD 


H,D 


CALL 


DIV 


JP 


XPLOT 


LD 


H,E 


ID 


C,D 


CALL 


DIV 


JP 


YPLOT 



;Load in X coordinates 

;Find change in X's 
;Jump if positive 
: Change to positive value 
rSave change in X's 
;Load in Y coordinates 

:Find the change in Y's 
;Junf) if result positive 
; Change to positive value 
;Save change in Y's 
rFind change in Y's-X's 
rJunp if slope positive 
; Setup for divide routine 
r X's/Y's 
rCalculate slope 
;Junp to next section 



*** END OF SLOPE CALCULATOR *** 



*** SETUP FOR PLOT ROUTINE *** 



YP1 



LD 

LD 

CP 

JP 

LD 

LD 

LD 

LD 

JP 

LD 

LD 

LD 

LD 

LD 

LD 

SET 

CP 

JP 

SET 

LD 

JP 

LD 

LD 

CP 

JP 

LD 

LD 

LD 

LD 

JP 

LD 

LD 

LD 



A, (IY+0) 
B,{lY+2) 
B 

P,XP1 
C A 
{IX+0),B 

a,Uy+i) 

H,(IY+3) 
XP2 

C,B 

{IX+0),A 

A, (IY+3) 

H, (IY+1) 

D,A 

E,0 

1,(IX+1) 

H 

M,XP3 

2,(IX+1) 

B,L 

PLOT 

A, (IY+1) 

B, (IY+3) 
B 

P.YP1 
C,A 

(IX+0),B 
A, (IY+0) 
H,(lY+2) 
YP2 

C,B 

(IX+0),A 
A, (IY+2) 



rLoad in the X's 

;Conpare X's 
;Junp if A>=6 
rSave starting count 
;Save final count 
;Load in the Y's 

rContinue @ XP2 
rSave starting count 
rSave final count 
;Load in the Y's 

;Save initial Y 

; Clear E 

;Signal XPLOT 

;Ccnpare the Y's 

;Jurrp if slope positive 

,-Signal negative slope 

:Save slope 

? Continue @ PLOT 

;Load in the Y's 

;Conpare the Y's 
! Jmtp if A>B 
;Save starting count 
;Save final count 
;Load in the X's 

; Continue @ YP2 
;Save starting count 
;Save final count 
;Load in the X's 

Program continued 
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7DE4 FD6600 


01360 




LD 


H,<IY-H0) 




7EE7 57 


01370 YP2 


LD 


D,A 


rSave the intial X 


7DE8 1E0B 


01380 


ID 


E,0 


r Clear E 


7DEA DDCB018E 01390 


RES 


1,(IX+1) 


; Signal YPLOT 


7DEE BC 


01400 


CP 


H 


; Check for negative slope 


7DEF FAP67D 


01410 


JP 


M,YP3 


;Junp if slope positive 


7DF2 DDCB01D6 01420 


SET 


2,(IX+1) 


; Signal a negative slope 


7DF6 45 


01430 YP3 


LD 


B,L 


;Save slope 




01440 












01450 




#** 


END OF SETUP FOR PLOT *** 




01460 












01470 




*** 


PLOT *** 






01480 










7DF7 79 


01490 PLOT 


LD 


A,C 


:Get current count 


7DF8 EDBE00 


01500 


CP 


(IX4«) 


; Compare with final count 


7DFB 2801 


01510 


JR 


Z,PL1 


;Junp if last locp 


7DFD F0 


01520 


RET 


P 


;RETURN TO BASIC 1 


7DFE DDCB014E 01530 PL1 


BIT 


1,(IX+1) 


;l-XPLOT 0-YPLOT 


7E02 2805 


01540 


JR 


Z,PL2 


r Junp on YPLOT 


7E04 61 


01550 


LD 


H,C 


;Load HL with X,Y 


7B05 6A 


01560 


LD 


L,D 


coordinates for XPLOT 


7E06 C30B7E 


01570 


JP 


PL3 


;Continue @ PL3 


7E09 69 


01580 PL2 


LD 


L,C 


;Load HL with X,Y 


7E0A 62 


01590 


LD 


H,D 


t coordinates for YPLOT 


7E0B E5 


01600 PL3 


PUSH 


HL 


;Save coordinates 


7E0C D9 


01610 


EXX 




•Swap registers 


7E0D El 


01620 


POP 


HL 


■Restore coordinates 


7E0E CD5F7E 


01630 


CALL 


set 


■Set point 


7E11 D9 


01640 


EXX 




■Restore registers 


7E12 DD21B17E 01650 


LD 


IX, STORE 


•Restore pointer 


7E16 DDCB015E 01660 


BIT 


3,(IX+1) 


■0-ANGLE/NOT45,l -ANGLE 45 


7E1A 280F 


01670 


JR 


Z.PL6 


■Junp if angle not 45 


7E1C DDCB0156 


01680 


BIT 


2,(IX+1) 


■0-pos. 1-negative slope 


7E20 2804 


01690 


JR 


Z.PL4 


■Junp if slope positive 


7E22 15 


01700 


DEC 


D 


Coordinate - 1 


7E23 C3277E 


01710 


JP 


PL5 


Continue @ PL5 


7E26 14 


01720 PL4 


INC 


D 


Coordinate + 1 


7E27 0C 


01730 PL5 


INC 


C 


Count=<ounbi-l 


7E28 C3F77D 


01740 


JP 


PLOT 


Junp to top of loop 


7E2B DDCB0156 


01750 PL6 


BIT 


2,(IX+1) 


0-pos. 1-negative slope 


7E2F 2809 


01760 


JR 


Z,PL7 


Junp if slope positive 


7E31 26FF 


01770 


LD 


H,255 


Set all bits in H 


7E33 78 


01780 


LD 


A,B 


Load with slope 


7E34 2F 


01790 


CPL 




Complement 


7E35 6F 


01800 


LD 


L,A 


HL has 2 ' s conplement 


7E36 23 


01810 


INC 


HL 


Conplete 2's complement 


7E37 C33D7E 


01820 


JP 


PL8 


Go add negative slope 


7E3A 2600 


01830 PL7 


LD 


H,0 


Clear H 


7E3C 68 


01840 


LD 


L,B 


Positive slope in HL 


7E3D 19 


01850 PL8 


ADD 


HL.DE ; 


Add slope to count 


7E3E EB 


01860 


EX 


DE.HL ; 


Store result in DE 


7E3F 0C 


01870 


INC 


C ; 


Add one to count 


7E40 C3F77D 


01880 


JP 


PLOT ; 


Junp to top of loop 




01890 ; 












01900 ; 




##* 


END OF PLOT SECTION * 


r** 




01910 ; 












01920 ; 




*** 


SUBROUTINE DIVIDE *** 


r 




01930 ; 










7E43 7C 


01940 DIV 


LD 


A,H 


Check for 45 deg. angle 


7E44 91 


01950 


SUB 


c 


& Junp if not 45 


7E45 2005 


01960 




JR 


NZ,DV1 
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7E47 

7E4B 

7E4C 

7B4E 

7E50 

7E52 

7E53 

7E54 

7E57 

7E58 

7E5A 

7E5C 

7E5E 



DDCB01DE 

C9 

2E00 

0609 

CB25 

79 

94 

FA5A7E 

4F 

CBC5 

CB21 

10F2 

C9 



DV1 

DV2 



DV3 



7E5F 5C 
7E60 7D 
7E61 CB3B 
7E63 1600 
7E65 3001 
7E67 14 
7E68 06FF 
7E6A 04 
7E6B D603 
7E6D F26A7E 
7E70 C603 
7E72 07 
7E73 82 
7E74 4F 
7E75 68 
7E76 2600 
7E78 0606 
7E7A 29 
7E7B 10FD 
7E7D 1600 
7E7F 19 
7E80 11003C 
7E83 19 
7E84 0600 
7E86 DD21AB7E 
7BSA DD09 
7E8C 7E 
7E8D CB7F 
7E8F 2002 
7E91 3E80 
7E93 F5 
7E94 3AB37E 
7E97 FE00 
7E99 200A 
7E9B DD7E00 
7E9E 2F 
7E9F CBFF 
7EA1 CI 
7ER2 A0 
7EA3 77 
7EA4 C9 
7EA5 Fl 



01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 



SET 

RET 

ID 

LD 

SLA 

LD 

SUB 

JP 

LD 

SET 

SLA 

DJNZ 

RET 



3,(IX+1) 

L,0 

B,9 

L 

A,C 

H 

M.DV3 

C,A 

0,L 

C 

DV2 



Signal a 45 deg. angle 

Return to prog. 

Clear result 

Number of loops 

Shift result 

Get D2 

Subtract Dl 

■Jump if not positive 

Update D2 

Set bit in result 

Shift D2 left 

Loop untill done 

Return to prog. 



*** END OF DIVIDE *** 



*** SUBROUTINE SET *** . 

By William Barden, 80^ICROCOMPUTING, JUNE I960, PG.24 



SET 



SET10 
SET20 



SET30 



SET40 



SET50 



LD 

LD 

SRL 

LD 

JR 

INC 

LD 

INC 

SUB 

JP 

ADD 

RLCA 

ADD 

LD 

LD 

LD 

LD 

ADD 

DJNZ 

LD 

ADD 

LD 

ADD 

LD 

LD 

ADD 

LD 

BIT 

JR 

LD 

PUSH 

LD 

CP 

JR 

LD 

CPL 

SET 

POP 

AND 

LD 

RET 

POP 



E,H 

A,L 

E 

D,0 

MC,SET10 

D 

B.0FFH 

B 

3 

P.SET20 

A, 3 

A,D 

C,A 

L,B 

H,0 

B,6 

HL,HL 

SET30 

D r 

HL,DE 

DE,3C00H 

HL.DE 

B,0 

IX, MASK 

IX, BC 

A,(HL) 

7, A 

NZ,SET40 

A, 128 

AF 

A, (ESTOR) 



NZ,SET50 

A,(lX+0) 

7, A 

BC 

B 

(HL),A 

AF 



Get char position in E 

Set COL# to 

Go if COL#=# 

COL#=l 

-1 to B 

Bump quotient in B=LINE# 

Successive subt. for /3 

Go if not negative 

Add back for remainder 

(ROW#)*2 
<R0W#)*2-tC0L#=BIT POS. 

Save BIT POS. in C 

Line # 

Now in HL 

Shift count 

Multiply LLNE#*64 

Loop till done 

DE now has CHAR POS. 

LINE#*64-tCHARPOS. in HL 

Start of video 

Points to memory 

BC now has bit pos. 

Start of mask table 

Point to mask 

Load pixel 

Check for graphics 

Jump if graphics 

Blank graphics 

Save character 

Get draw flag 

Check for erase 

Jump if not erase 

Get mask pattern 

Complement for erase 

Make graphics 

Restore character 

Combine with mask 

Save in video memory 

Return to PLOT 
Restore character 

Program continued 
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7EA6 DDB600 

7EA9 77 

7EAA C9 

7EAB 81 

7EAC 82 

7EAD 84 

7EftE 88 

7EAF 90 

7EB0 A0 

0002 

0001 

0004 

0000 

00000 TOTAL 



02580 
02590 
02600 
02610 MASK 
02620 
02630 
02640 
02650 
02660 

02670 STORE 
02680 ESTOR 
02690 TABLE 
02700 
ERRORS 



OR 

ID 

RET 

DEFB 

DEPB 

DEFB 

DEFB 

DEPB 

DEPB 

DEPS 

DEFS 

DEPS 

END 



(IX-H3) 

(HL),A 

81H 

82H 

84H 

88H 

90H 

0A0H 

2 

1 

4 



;Set bit 

;Save in video mem. 
; Return to PLOT 
;Mask table for set 



;#l-final count #2-flags 
;Draw-l Erase-0 flag 
; Table of coordinates 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 



LIGHTNING 



Program Listing 2 



*** LISTING 2 *** 



HEM SIZE 32000 

FOR DISK - DEFUSR=32000 

DI=32436 

X1=RND(127):X2=RND(127):Y1=RND(47) :Y2=RND(47) 

^^ D ^ X1:POKEDI+1 ' Y1:POKEDI+2 ' X2:POKED I+3»Y2:CLS:M=USR(0) 
GOTO 90 



5 

10 

15 

20 

25 

30 

35 



Program Listing 3 



LISTING 3 *** 



* RADAR SIMULATOR * 



' MEM SIZE 32000 

'FOR DISK - DEPUSR=32000 

40 C=3. 141593/180 :DI=32436:POKEDI+2,64:POKEDI+3, 24 

45 FOR A=0TO 359 STEP 10 

50 Xl=COS(A*C)*63+64 

55 Y1=SIN(A*C)*23+24:M=USR(1) 

60 POKEDI,Xl:POKEDI+l r Yl:M=USR(0) :NEXT:GOT045 
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13 

Defeating the 
ROM: Scroll 
Protection 

by Daniel J. Scales 



System Requirements: 

Model I 

Level II BASIC 

16K 



Have you ever wanted to protect text or graphics on the screen so it 
wouldn't be scrolled off? This capability can be used to keep the 
headings of a table from disappearing off the top of the screen, or to build 
up a graphics image step-by-step in command mode without having it 
move up and off the screen. When I have a lot of disk copying or erasing 
to do, I find it convenient to protect the top part of the screen and display 
a directory which remains there until I clear the screen or change the 
scroll protection. 

The Program 

The machine-language program in Program Listing 1 controls the 
scrolling of the screen. It is directly linked to the video output routine in 
ROM (read-only memory) that is used by Level II BASIC, Disk BASIC, 
and DOS. The scroll protection works in BASIC, DOS, and almost all 
machine-language utilities, as long as the memory for the routine is pro- 
tected. Because it is linked to the ROM's video driver routine, the pro- 
gram is executed every time there is output to the screen, and is com- 
pletely invisible to the user— no special command is needed every time 
there is a scroll. 

The first part of the routine (see Program Listing 1), named PROT, in- 
tercepts the screen driver by placing its own starting address in the 
screen control block, which usually contains the address of the video 
output routine, and jumping to the video driver only after the scroll pro- 
cessing is completed. The other part of the machine-language program is 
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called directly by the user to change the parameters of the scroll routine 
so that it protects a new specified text area, which may be any set of con- 
secutive lines on the screen. 

This SETUP routine is normally called from BASIC by a USR call. Its 
argument has the form 256*FIRST + LAST, where FIRST is the line 
number of the start of the text area that is to be scrolled, and LAST is the 
line number of the end of the text area. When the cursor is in the text 
area, only the text area is scrolled; the rest of the screen is protected. The 
cursor can still be placed anywhere on the screen by using a PRINT© 
statement or by clearing the screen, and normal scrolling takes place if 
the cursor is not in the text area. 

The scroll protection routine protects the top four lines of the screen 
(making the text area the last twelve lines of the screen) until SETUP is 
called to redefine the text area. The lines on the screen are numbered 
0-15. If either the FIRST or LAST argument is not between and 15, the 
argument is divided by 16, and the remainder is used as the line number. 
The SETUP routine does not check to see if FIRST is less than LAST. It is 
not possible for FIRST to equal LAST. 

How It Works 

Normally, the screen must be scrolled only if the cursor is at the last 
position of the screen and a character is to be printed, or if the cursor is 
anywhere on the last line of the screen and a line feed is to be printed. 
The machine-language routine, PROT, in Program Listing 1, does noth- 
ing unless the cursor is at the last position of the text area defined by SET- 
UP or on the last line of the text area with a line feed to be printed. If one 
of these two conditions is true, it executes a special scroll routine that 
scrolls only the text area without spilling over into the protected regions 
of the screen. In this way, the scroll routine of the video print subroutine 
is defeated and is never invoked while the cursor is in the text area. 

PROT starts by saving the contents of registers on the stack and loads 
the HL register with memory location 4020H. The screen image is stored 
in memory at locations 3C00H to 3FFFH, and 4020H contains the mem- 
ory address associated with the cursor's location. The routine checks to 
see if the cursor is on the last character or last line of the text area and 
whether the character to be printed (which is in the C register on entry to 
PROT) is a carriage return/line feed (ASCII coded 0D hexadecimal). If 
both these conditions are true, the routine scrolls only the text area. The 
scrolling process uses the Z80 LDIR (load, increment, and repeat) in- 
struction to move all the lines of the text area (except the first) up one 
line, then fills in the last line with blanks, and adjusts the cursor pointer 
in 4020H. The routine terminates by popping off the stack all the regis- 
ters that were saved at the beginning of the routine and jumping to the 
video print routine. 
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SETUP is the routine which changes various instructions of the PROT 
routine so that it scrolls the right screen area according to the USR argu- 
ment. It puts the USR argument in the HL register by calling a BASIC 
ROM routine, CVINT, at 0A7FH, as described in the Level II manual. It 
has a subroutine, M64, which takes a line number from to 15 in the A 
register and returns the memory location asssociated with the first char- 
acter of that line on the screen. It returns to BASIC after it has made all 
the necessary changes. 

Using the Routine 

The scroll protect routine is created using an editor/assembler and 
loaded in by the Level II SYSTEM command or the DOS LOAD com- 
mand. The BASIC program in Program Listing 2 can be used to POKE 
the routine into memory. The POKE values are for a 32K machine. If the 
program is to POKE into the high memory of a 48K machine, all 191s in 
the DATA statements and in line 150 should be changed to 255s, and line 
140 should start with FOR 1= -256 TO -256+141. The routine as 
shown sets the bottom twelve lines of the screen as the text area and pro- 
tects the top four lines. You can change the location of the text area by 
calling the SETUP routine with a USR call, so the address of SETUP 
must be known. This address is - 16570 if the addresses of the BASIC 
program or assembly listing are not changed. If the 48K modification giv- 
en above is used, then this address is - 186. The lines of the screen are 
numbered 0-15, and the argument passed to SETUP must be 256* FIRST 
+ LAST, where FIRST and LAST are the line numbers of the first and last 
lines of the text area. FIRST and LAST should be between and 15, with 
FIRST less than LAST. 

Only the text area scrolls as long as the cursor is in the text area, but if 
the cursor is not in the text area and is at the bottom of the screen, a nor- 
mal unprotected scroll takes place. The CLEAR key is not disabled, so 
you can erase anything in the protected part of the screen at any time by 
clearing the screen. PROT can be modified to check whether the C regis- 
ter contains 1FH (the ASCII for clear screen), and if so, return to the call- 
er without jumping to the video print routine, thus disabling the CLEAR 
key. The routine could be changed so that the clear code clears only the 
current text area. 





Program Listing 1. Scroll protection program 




00100 ; SCROLL PROTECTION PROGRAM 




00110 r MODEL I 




00120 ; DAN SCALES, 1981 




00130 ; 


4020 


00140 CURU3C BQU 4020H 


0A7F 


00150 CVINT EQU 0A7FH ; ROUTINE TO GET INTEGER ARGUMENT 




Program continued 
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3C00 
0458 



401E 

401 E 00BF 

BF00 
BF00 C5 

BF01 D5 



BF02 

BF03 

BP06 

BP07 

BF09 

BF0B 

BP0C 

BF0E 

BP10 

BF11 

BF13 

BF15 

BF16 

BF18 

BF1A 

BF1C 

BF1F 

BF22 

BF25 

BF27 

BF29 

BF2C 

BF2F 

BF30 

BF31 

BF32 

BF33 

BF34 

BF36 

BF39 

BF3C 

BF3D 

BF40 

BF41 

BF42 

BF43 

BF46 

BF49 

BF4A 

BF4B 

BF4D 

BF50 

BF53 

BF54 

BF57 

BF58 

BF5B 

BF5C 



F5 

2A2040 

7C 

FE3F 

2035 

7D 

FEFF 

280C 

79 

FE0D 

202B 

7D 

E6C0 

FEC0 

2024 

21403D 

U003D 
010002 

EDB0 

1620 

21C03F 

014000 

72 

23 

0B 

78 

Bl 

20F9 

2A2040 

11C0FF 

19 

222040 

Fl 

Dl 

CI 

C35804 

CD7F0A 

4D 

7C 

E61F 

CD7BBF 

2220BF 

E5 

114000 

19 

221DBF 

79 

E61F 



00160 

00170 V1DMEM 
00180 VIDPR 

00190 

00200 

00210 

00220 

00230 

00240 

00250 PRCT 

00260 

00270 

00280 

00290 

00300 

00310 

00320 ENDTXT 

00330 

00340 

00350 LSTCHR 

00360 

00370 

00380 

00390 

00400 

00410 

00420 LSTLIN 

00430 

00440 SCROLL 

00450 

00460 

00470 

00480 

00490 LSTLN2 

00500 

00510 FILL 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 POPALL 

00620 

00630 

00640 

00650 SETUP 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 



EQU 
EQU 



ORG 
DEFW 

ORG 

PUSH 

PUSH 

PUSH 

LD 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

AND 

CP 

JR 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

INC 

DEC 

LD 

OR 

JR 

LD 

LD 

ADD 

LD 

POP 

POP 

POP 

JP 

CALL 

LD 

LD 

AND 

CALL 

LD 

PUSH 

LD 

ADD 

LD 

LD 

AND 



3C00H 

458H 



401EH 
0BF00H 

0BF00H 
BC 

DE 



OF USR CALL 

LOCATION OF VIDEO MEMORY 

ROM ROUTINE TO PRINT CHARACTER 

ON SCREEN 

LOCATION OF VIDEO DRIVER ADDRESS 
CHANGE DRIVER ADDRESS TO ADDRESS 
OF SCROLL ROUTINE 

C REGISTER CONTAINS CHARACTER 
TO BE PRINTED 

DE CONTAINS ADDRESS OF VIDEO 
DEVICE CONTROL BLOCK 

SAVE STATUS FLAGS 



AF 

HL, (CURLOC) 

A,H 

3FH ;CHECK IF NEAR END OF TEXT AREA 

NZ, POPALL jNO NEED TO SCROLL 

A,L ;CHECK IF CURSOR IS AT LAST 

0FFH ; POSITION OF TEXT AREA. 

Z, SCROLL ? IF SO, SCROLL. 

A,C 

0DH ;IS LINEFEED TO BE PRINTED? 

NZ, POPALL ;N0, DON'T SCROLL 

A,L 

0C0H 

0C0H 

NZ, POPALL ;NOT OK LAST LINE, SO NO SCRDLL 

HL,3D40H 

DE,3D00H 

BC,2C0H 

; SCROLL THE SCREEN 

D,20H 
HL,3FC0H 

BC,40H 

(HL),D rFILL IN LAST LINE OF TEXT AREA 
HL ;WITH BLANKS 
BC 
A,B 
C 

NZ,FILL 

HL, (CURLOC) rSUBTRACT 40H FROM CURSOR 
DE,0FFC0H ; LOCATION TO ADJUST FOR SCROLL 
HL.DE 

(CURLOC), HL 

AF 

DE 

BC 

VIDPR 

CVINT 

C,L 

A,H 

1FH 

M64 



; CONTINUE VIDEO PRINT ROUTINE 
;GET USR ARGUMENT 



;GET ADDRESS OF FIRST POSITION 
;MAKE REGISTER A BETWEEN AND 15 
;0F FIRST LINE OF TEXT AREA 

(SCROLL+4),HL 

HL ,-SAVE TOP OF SCROLL AREA FOR LATER 

DE,40H ;TO MOVE TEXT UP ONE LINE (40H 

HL,DE jCHARACTERS 

(SCRDLL+1),HL 

A,C 

1FH ;MRKE A REGISTER BETWEEN AND 15 
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BF5E 3C 


00765 INC 


A 


BF5F CD7BBF 


00770 CALL 


M64 ;GET ADDRESS OF LAST POSITION 


BF62 2B 


00780 DEC 


HL ;OF LAST LINE OF TEXT AREA 


BF63 7C 


00790 LD 


A,H 


BF64 3208BF 


00800 LD 


(ENDTXT+1),A 


BF67 7D 


00810 LD 


A,L 


BF68 320DBF 


00820 LD 


(LSTCHR+1),A 


BF6B E6C0 


00830 AND 


0C0H 


BF6D 3219BF 


00840 LD 


{LSTLIN+1),A 


BF70 6F 


00850 LD 


L,A 


BF71 222ABF 


00360 LD 


(LSTLN2+1),HL 


BF74 Dl 


00870 POP 


DE ;RESTORE ADDR OF TOP OF SCROLL AREA 


BF75 ED52 


00880 SBC 


HL,DE ;HL EQUALS THE NUMBER OF CHARACTERS 


BF77 2223BF 


00890 LD 


(SCR0LL+7),HL ?TO BE SCROLLED 


BF7A C9 


00900 RET 






00910 








00920 


M64 IS 


A ROUTINE TO GET THE ADDRESS OF THE 




00930 


FIRST 


POSITION OF THE LINE ON THE SCREEN WHOSE 




00940 


NUMBEE 


IS IN THE A REGISTER. 


BF7B 47 


00950 M64 LD 


B,A 


BF7C 210000 


00960 LD 


HL.0H 


BF7F 114000 


00970 LD 


DE,40H 


BF82 B7 


00980 OR 


A 


BF83 2803 


00990 JR 


Z,CONT 


BF85 19 


01000 LOOP ADD 


HL,DE 


BF86 10FD 


01010 I 


XINZ 


LOOP 


BFB8 11003C 


01020 CONT 1 


J3 


DE.VIDMEM ;HL NOW EQUALS 64 TIMES REGISTER A 


BF8B 19 


01030 ADD 


HL.DE 


BF3C C9 


01040 


3ET 




BF00 


01050 


=nd 


PROT 


00000 TOTAL ERRORS 







Program Listing 2. BASIC program 



MODEL I SCROLL PROTECT 
DAN SCALES, 1981 

THE USR ADDRESS TO CHANGE SCROLL PROTECTION IS -16570. 
FOR INSTANCE, TO CHANGE THE TEXT AREA TO ONLY THE BOTTOM 
FOUR LINES, DEFINE THE USR ADDRESS AS -16570, AND THEN 
EXECUTE "X = USR(12 * 256 + 15)". 



100 

110 

120 

125 

126 

127 

130 

140 FOR I=-16640 TO -16640+141 :READ XiPOKE I,X:NEXT 

150 POKE 16414,0: POKE 16415,191 'CHANGE SCREEN DRIVER ADDRESS 

200 DATA 197,213,245,42,32,64,124,254,63,32 

210 DATA 53,125,254,255,40,12,121,254,13,32 

220 DATA 43,125,230,192,254,192,32,36,33,64 

230 DATA 61,17,0,61,1,192,2,237,176,22 

240 DATA 32,33,192,63,1,64,0,114,35,11 

250 DATA 120,177,32,249,42,32,64,17,192,255 

260 DATA 25,34,32,64,241,209,193,195,88,4 

270 DATA 205,127,10,77,124,230,31,205,123,191 

280 DATA 34,32,191,229,17,64,0,25,34,29 

290 DATA 191,121,230,31,60,205,123,191,43,124 

300 DATA 50,8,191,125,50,13,191,230,192,50 

310 DATA 25,191,111,34,42,191,209,237,82,34 

320 DATA 35,191,201,71,33,0,0,17,64,0 

330 DATA 183,40,3,25,16,253,17,0,60,25 

340 DATA 201,0 
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14 

Easier Formatting 
with SCREEN 

by Don Robertson 

System Requirements: 

Model I or III 

16Kor32K 

Level 11 or Dish BASIC 

The SCREEN program is for the BASIC programmer who wants pro- 
fessional-looking programs but gets frustrated with the time and en- 
ergy required to format a screen using graphics and alphanumerics. The 
traditional way to lay out a screen is to PRINT AT, POKE, or PRINT US- 
ING. Traditionally, to use the graphics characters, you must look up 
their ASCII codes and laboriously POKE or use CHR$ to format them. 
SCREEN lets you move the cursor with complete freedom, using graph- 
ics to draw pictures, or putting alphanumeric characters where you 
want them. When the screen is set up exactly as you want it, the picture 
is POKEd into the program itself. 

The program is easy to run (see Program Listing). First, the current 
screen appears. To create a new screen, type C. This clears the screen 
and displays the graphics cursor in the center. To modify the existing 
screen, type any character except C. Do not press ENTER after your 
choice, as this tells the program to save whatever is currently displayed 
on the screen. 

The graphics cursor is controlled by the arrow keys. To draw, press 
the appropriate key. Press two keys simultaneously for diagonal lines. 
To erase or to move the cursor without drawing, hold down the SHIFT 
key and press the desired arrow. When SHIFT is pressed, the graphics 
cursor blinks. This is useful when the screen is almost full and you've 
forgotten where you are. 

SCREEN lets you switch between the graphics and the alphanumeric 
modes, using the CLEAR key as the switch. When in the alpha mode, the 
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blinking cursor shows the current position to be typed. Cursor position 
is controlled by the arrow keys. When the cursor is in the desired posi- 
tion, anything you type appears on the screen, much as it would on a 
word processor. Use the space bar to erase in the alpha mode. 

When you're satisfied with the screen, press ENTER. The program 
scans the display and POKEs it into program lines 30000-30080. It takes 
about 20 seconds to dump the screen. When the READY prompt ap- 
pears, delete lines 31010-33120 and write your BASIC program. Your 
screen is stored in A1S-A8S and printed whenever line 31000 is ac- 
cessed. You must type lines 30000-30070 exactly as they appear in the 
listing. Each of the strings Al$-A8$ must be precisely 128 characters 
long; these variables are where your new screen is stored. 

Lines 31010-31030 find the beginning of Al$, check whether it is a 
modification or an entirely new screen, and position the graphics cursor 
in the middle of the display. The program starts in the graphics mode. 
Lines 31040-31110 check for cursor movement (arrows), alpha switch 
(CLEAR), and save screen (ENTER). Cursor movement in both modes is 
smooth and fast, because the program does not use INKEY$ to detect it. 
Keyboard memory is located in locations 3801H-3880H, with all control 
characters at 3840H. By PEEKing at 14-400 (3840H) and testing for the 
different controls, the program can handle fast typing and support re- 
peats—even on the Model I. 

Alpha characters are handled in essentially the same way as graphics. 
Lines 33000-33090 detect controls, set the POKEing position, and dis- 
play any characters you type. The cursor in the alpha mode is non-de- 
structive; the character under the cursor is stored in CH. The ASCII code 
of any character typed is saved into KB and then POKEd to the screen. 
Lines 31120-31200 save the screen into variables Al$-A8$ when EN- 
TER is pressed. 



Program Listing 

1 CLEAR1000 

30000 A1$="SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCRE 

EN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREE 

N SCREEN SC" 

30010 A2$="REEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN 

SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN 
SCREEN SCRE" 

30020 A3$="EN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN S 
CREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SC 
REEN SCREEN" 

30030 A4S=" SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCR 
EEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCRE 
EN SCREEN S" 

30040 A5$="CREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREE 
N SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN 

SCREEN SCR" 

Program continued 
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30050 A6?="EEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN 
SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN S 
CREEN SCREE" , „___, „„ 

30060 A7S="N SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SC 
REEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCR 

EEM SCREEN " 

30070 A8$="SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCRE 

EN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN SCREEN BY DO 

m ROBERTSON" 

31000 CLS:PRINTAl$rA2?rA3?;M$;A5$;A65rA7$;LEFr$(A8$,127); : POKEl 

6 383 , ASC< RIGHT? (A8$ , 1 ) ) 
31010 P=VARPTR(A1$) 

FIND LOCATION OF Al? 
31020 A=PEEK(P+2)*256+PEEK(P+l) 

31025 KS=INKEY$:IFK$= , '"THEN31025ELSEIFK?= , 'C'THENCLS C — > CL 

EARS SCREEN -> DO ENTIRELY NEW SCREEN «--» ANY OTHER LETTER 
LEAVES SCREEN FOR MODIFICATION ONLY 

31030 X=63-Y=23-PO=15360' INITIAL POSITIONS OF CURSORS 

31040 M=PEEK( 14400) :FORI=1TO10:NEXT' CHECK FOR ARROWS, (MOVE 

CURSORS ENTER (PUNCH SCREEN TO A1$->A8S), CLEAR (SWITCH IN LET 

TER POKER) „„„™ 

31050 IFM=1THEN31120' ENTER KEYED — > SAVE SCREEN 

31055 IFM=2THENFORI=1TO40:NEXTISGOTO32000' CLEAR KEYED — > SW 

ITCH TO ALPHABETICS „„-„„ 

31060 IFMAND8ANDY>0THENY=Y-1- ARBCW KEYED — > MOVE CURSOR 

31070 IFMRND16ANDY<47THENY-Y+1 

31080 IFMAND32ANDX>0THENX=X-1 

31090 IFMAND64ANDX<126THENX=X+1 

31100 SET(X,Y):IFPEEK( 14464 )THENRESET(X,Y) ' SHIFT IS ERASE 

31110 GOTO31040 

31120 ' 

SAVE SCREEN INTO PROGRAM 
31140 FOR II=15360TO16320STEP128 

31150 FORJJ=0TO127 

31160 POKEA+XX*139«J,PEEK(II-KJJ) 

31170 NEXTJJ 

31180 XX=XX+1 

31190 NEXTII 

31200 END 

32000 ' ALPHA NUMERIC CHARACTERS POKED HERE 

32010 M=PE£K( 14400)' LOOK FOR CONTROL CHARACTER „,„„„ 

32015 C^PEEK(PO):k K EFO,254 : Pl=PO:POKEPl r CH' FlJ ^f^^° R 

32020 IJN>2'mEN33000' NOT CLEAR, NOT ENTER — > CURSOR MOVE 

32030 IFM=2THENFORI=lTO40:NEm:GOTO31040' CLEAR — > SWITCH 

TO GRAPHICS 

32040 IFM=1THEN31120' ENTER — > SAVE INTO PWGTOM,, ^^ 

32050 K$=INKEY$:IFK$<>""ANrJK$<>"[' , THENKERASC(K$):K$=•'" , CHECK 

■pv^p t J^I'I'KR 
32060 in^>31THENPC*EPO,KB:IFPO<16383THENPO=P04-l' CHECK FOR N 

ON-CONTRQL CHARACTER IN BUFFER, STORE ON SCREEN, MOVE CURSOR 1 P 

OSITICN RIGHT 

32070 KB=0' RESET BUFFER 

32080 GOTO32010' GET NEXT CHARACTER 

33000 'GET POKING POSITION 

33040 lFMANI38ANDPO>15424THENPO=PO--64' CHECK FOR ARROW — > MO 

VE CURSOR 

33050 IFMAND16ANDPO<16320THEMPOPCH-64 
33060 IFMAND32ANDPO>15360THENPO=PO-1 
33070 iFMAND64ANDPO<16383THENPO=POt-l 
33090 GOTO32010 
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15 

DRAFTER: A 
Graphics Editor 

by R.K. Fink 



System Requirements: 

Model I or III 

32K or 48K 

One disk drive 



After years of searching for the ideal screen writer, I designed 
DRAFTER to be both easy to use, and foolproof. It operates quickly, 
uses few commands, and requires no computations to find TRS-80 block 
graphic codes. It automatically saves the screen as BASIC lines of data 
statements, in a file you can merge with another BASIC program. It uses 
machine-language block moves to speed up operation of screen saves 
and recalls. Two versions of DRAFTER are provided here— one for 32K 
systems, and one for 48K systems. Both require one disk drive. 

DRAFTER (see Program Listing 1) was developed for a 48K disk sys- 
tem. Program Listing 2 is for a 32K system. The machine-language USR 
subroutines, which are used to clear buffers, save or recall a screen, or 
construct a data buffer, are POKEd into high memory from strings. They 
become invisible when a new data file is merged and POKEd to the 
screen. The memory maps in Figure 2 show where space is needed for 
storage buffers and for the operation codes. When you rerun the pro- 
gram, it loads its routines in memory, sets buffers to zero, and starts into 
the D (draw) mode with the ( * ) cursor ready for screen construction. 

Using DRAFTER 

The commands and construction loops are shown in Figure 1. While 
you are in the draw mode, hitting the SHIFT key saves the screen and 
displays the main menu. If the data on the screen is to be saved as a 
group of BASIC DATA statement lines, press S. To append and load a 
disk file of data previously made, press L. After loading the storage buff- 
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er and screen you are returned to the draw mode, ready for further con- 
struction. X exits to BASIC, but gives you a second chance with a prompt 
if your data has not been saved to disk. 

While in the draw mode, ASCII keyboard characters may be entered 
at the cursor by pressing CLEAR while typing the desired character. 
Regular graphic blocks are built by pressing the keys shown on the nu- 
meric keypad. If you don't have a numeric keypad, use the numbers 
along the top key row— with a loss, however, of the relative position, or 
touch feel, of building a rectangular block. When a block is begun you 
are in a loop that can be erased and restarted with the space bar. When 
you're satisfied, press the ENTER key to enter the graphics equivalent. 
The cursor reappears. 





MAIN MENU 




■ ■ 










s 


■ ■ SAVE SCREEN TO 
DISK AS DATA 

STATEMENTS 




L ■ 


■ LOAQ A PREVIOUS 
SCREEN FROM OISK 




X • ■ 


■ EXIT TO BASIC 







3 

3 HHD 
3 HHD 

3 QBD 
DDD 



NUMERIC KEY PAD 




FROM THE DRAW SELECTION 

* CURRENT CURSOR POSITION 

MOVE CURSOR 
IKON-DESTRUCTIVE 1 

CLEAR & KEY SETS THIS ASCII 
AT CURSOR 

SPACE ERASE AT CURSOR 
SHIFT GO TO MAIN MENU 



W 



BUILD A GRAPHICS 
-CHARACTER 1LOOP> 



ENTER SETS BLOCK 
SPACE ERASES AND 
RESTARTS 
BLOCK BUILD- 
UP 



Figure 1. Commands 
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MEMORY MAPS 



FFOO 



F900 



E900 



USR 

SUBROUTINES 



TEMPORARY VIDEO 
STORAGE BUFFER 



IK 

ENCODED 

DATA 

STORAGE 

BUFFER 



BFOO 



B900 



PROTECT 
MEMORY SIZE 
-HERE 



A900 



3FFF 
3C00 



VIDEO MEMORY 



USR 

SUBROUTINES 



TEMPORARY VIDEO 
STORAGE BUFFER 



3K 
ENCODED 

DATA 

STORAGE 

BUFFER 



JFFF 
3COO 



VIDEO MEMORY 



48 K 



3EK 



Figure 2. Memory Maps 



The cursor has automatic repeat movement. The non-destructive cur- 
sor stops at any boundary position. To erase a position, hit the space bar, 
and the character at the cursor is erased. You can make a data file of your 
screen with the S command, then use MERGE"filespec" to append 
it to any other program. These lines always start at 20000, so put noth- 
ing above this in your other program. Only active screen locations 
with character contents other than a space are saved. It's assumed that 
the screen is cleared with a CLS command before POKEing the data in 
later programs. To use the created DATA statements note that there are 
three numbers per location: MSB, LSB of screen address (not in reversed 
order like Z80 operation code), and the screen character's ASCII code. 
A simple program loop to fill the screen follows: 

CLS 

FOR N= 1 TO (Length of the active data locations] 

READ M,L,D : AD = M*16 + L 

POKE AD,D 

NEXT N Figure continued 
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NAME DESCRIPTION 



A$ AAJ Temporary Data Input 

AD POKE Address 

CC Cursor Character 

DA Current Character Buildup 

F$ Filespec for Disk 

I N Closed Loop Counters 

KD Keyboard Input of NUMBERS Row 

KB Keyboard Input of ARROWS Row 

LN$ ASCII DATA Statements Created 

PS Current Cursor Position 

PO Temporary POKE Address 

S Start of Screen 

SA Start Address of Op Codes 

SL Line No. of BASIC DATA Lines 

U0$-U3$ Strings for USR Subroutine Codes 



SUBROUTINES USED 



LINE # DESCRIPTION 



1500 USR Subroutines 

2000 Save DATA Statements To Disk 

3500 Load Data From Disk 



Figure 3. Major symbols and subroutines 

DRAFTER also lets you construct and save a loadable file of a sketch 
in just a few minutes. To start, cover a video worksheet with celluloid 
and use a grease pencil to get rough starting proportions. Tb demon- 
strate the technique, I constructed a Giant Android in about eight min- 
utes and saved it as Program Listing 3. DRAFTER put all those data lines 
automatically on disk. If you want a starting point, put the data lines into 
an ASCII file from the keyboard and then load them into DRAFTER. 



Program Listing 1 



**** DRAFTING BOARD AND DATA EWXDER **** 

** DRAPTER/BAS MOD I DISK 32 OR 48K ** 

** RK FINK 1/20/82 VER 1.0 ' ** 

** P0R THIS 48K VERSION ** 

** PROTECT 50000 TO ENTER BASIC ** 

** ** 



1 

2 
3 
4 

5 
6 
7 
8 

9 CLS:PRINTCHR$(23);"L O W 

RES 

GRAPHICS 

TABLE T":K>RN=1TO3000;NEXT 

10 CLEAR500:CLS 

15 DEFINTA-Z:GOSUB1500tGOSUB1700 
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20 CNERRORGOTO0:S=15360 
30 X=0!Y=0:CO=42:DA=128 
40 PS=S+X464*Y:TP=PEEK(PS) 

49 ' : : : : : The Main program Loop : : : : j 

50 POKEPS, CC:GOSUB200:GOSUB270 
60 IFPEEX(14464)=0THEN50 

68 ' ::::: ;:: ::::: 

69 ' : : : : : The Main Menu Routine :•.:: 

70 GOSUB1000 
80 CLS:PRINT 

90 PRINTTAB(8)" DRAFTING BOARD AND DATA STATEMENT ENCODER" 

lew PRINT :PRINTTAB( 25 )"M E N U" 

110 PRINT" D START OR CONTINUE DRAWING 

S SAVE A SCREEN & PUT DATA ON DISK 

L . . . . LOAD A PREVIOUS SCREEN FROM DISK 

X EXIT TO BASIC" 

120 PRINT! PRINT'SELECTICN ??" 

130 AAS=INKEY?:IFAA$= , "THEN130 

140 IFAAS="X"THENCLS:PRINT"SURE DATA'S SAVED?? REALLY EXIT (Y 

/N) ": INPUTAA$ :IEAA$="N"THEN90ELSEEND 

150 IFAA$="S"THEN2000 

160 IEAA$*"D"THENCLS:&=USR2(0):QOTO30 

170 IFAA$«"L"THENCLS:GOTO3500 

180 GOTO130 

200 KB«PEEK( 14400) :IFKB»0THENRETORN 

201 IPKBO2THEN210 

202 IFPEEK( 14400 )=2THEN202 

203 POKEPS,128:DA$=INKEY$iIFDA$='" , THEN203 

204 DA=^ASC{DA$) : POKEPS, DA:TP=DA:FORN=1TO200:NEXT: RETURN 

210 IF(KB»32)AND(X<>0)THENX=X-1(POKEPS,TP:PS=S+X+64*Y:TP-PEEK{PS 
) iPOKEPS,CC: RETURN 

220 IF(KB=64)AND(X<>63)THENX=X+1 :POKEPS,TP:PS=S+X+64*Y:TP=PEEK(P 
S) : POKEPS, CCi RETURN 

230 IF(KB»8)AND(Y>0)TE1ENY=Y-1:POKEPS,TP:PS=S+X+64*Y:TP»PEEK(PS) : 
POKEPS, CC: RETURN 

240 IF(KB"16)AND(Y<15)THENY=Y+l:POKEPS,TP:PS=S+X+64*YsTP=PEEK(PS 
) x POKEPS , CC : RETURN 

250 IF(KE^128)THENPOKEPS,128iFORN=lTO200sNEXT:TF^128:RETURN 

260 ' .... Construct A Graphics Block Locp Follows .... 

270 KD=PEEK( 14352) !lPKD=0THENRETOFN 

280 IFPEEKf 14400 )=128THENPOKEPS, 128 «DA=128 

290 IFPEEK( 14400) =1THENP0KEPS, DA: TP=DAjDAf128s RETURN 

300 IFKD=128THENDA=DAORlELSEIFPEEK(14368)=l , raENDA=DAOR2 

310 IFKD=16THENDA=DAOR4ELSEIFKD=32THENDA=DAOR8 

320 IFIO>=2TOENElA=DAOR16ELSEIFKD=4 , IHE«DA=DAOR32 

330 POKEPS, DA :KD=PEEK( 143 52 ):TP=DA:GCTO280 

1000 POKEPS, TP 

1010 Z=USRl<0)s RETURN 

1498 ' ... These are the string packers that set up 

1499 ' the USR subroutines 

1500 PRINT"INITIALIZING PROGRAM ROUTINES " 

1505 U0$="1101E92100E9AF77010014EDB0C9 ,, 

1510 PC=t<HFP00!FORI=lTQLEN(U0$)STEP2!LsASC{MID${U0$,l))^48 
1520 P^ASC(MID5(U05,I+l))-48(I^L+7*(L>9):R=Rf7*(R>9) 
1530 P0KEP0,16*LfR:P0=P0+l:NEXTI 

1540 DEFUSR0=8HFF00 

1541 ' USR0 ... Clears buffers with zeros 
1550 U1$="1100F921003C010004EDB0C9" 

1560 PO=&fIFF10:PORI=lTOLEN(U15)STEP2jL=*SC(MID$(U15,I))-48 

1570 ^ASC(MIDS(U1$,I+1))-48:L=L+7*(L>9):R=R+7*(R>9) 

1 580 POKEPO, 16*L+RrPO=POl-l :NEXTI Pr ogram conHmed 
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1590 DEFUSR1=SHFF10 

1591 ' USR1 ... Saves screen to video buffer ... 
1600 U2$="11003C2100F9010004EDB0C9" 

1610 PC>»SilFF20:POBI=l , rciLEN(U2$)STEP2:l>*SC(haD$(U2S,I))-48 
1620 R^ASC(MID$(U2$,I+l))-48:I*-L*7*(L>9):R=Rf7*(R>9) 
1630 POKEPO,16*I/fR:PO=PO+liNEXTI 

1640 DEFUSR2=SHFF20 

1641 ' USR2 . . - Moves saved buffer back to screen . . . 

1 650 U3$="010BFD1 1003C2 100F9DD2100E9FD2100007EFE802819FE20281 5DD 
7200DD23DD7300DD23DD7700DD23FD23FD23FD232313E5ED427CB52803E118D6 

E1FDE5E1C39A0A" 

1660 POSHFF30iPORI=lTOI^I(U3$)STEP2sLnftSCCMID5(U3$,I) )-48 
1670 R=ftSC(MIDS(U3$,I+l))-48!li=I>7*(L>9):R=R+7*(tl>9) 
1680 PC*EPO,16*L+R:PO=PO+-l:NEXTI 

1690 DEFUSR3-6HFF30 ! RETURN 

1691 ' USR3 . . . Construct Data Buffer fran video buffer 
1700 ^USR0(0)sCLS: RETURN: 'Clear Buffers TO ZEROS ... 

1999 ' ... Construct Data Statements & Save To Disk . . . 

2000 CLS 
2010 PRINT 

2020 LE=USR3(0):IFPEEK(SHE900)^2fIHENPRIOT"NO VIDEO TEXT IN BOFFE 

R" tFOF^lTO500: NEXT; CIS :GOTO30 

2030 PRINT: LINE INPUT'FILESPEC FOR DATA SAVE? ";F$:0PEN"0",1,F$ 

2040 PRINT :PRINT"SAVING DATA LINES " 

2050 SA^SHE900sSL=20000:GOSUB4000 

2060 LN$»LN$+"DATA" 

2070 FORN=SATOSAfLE-l 

2075 IFLEN(LHS)<60THEN2110 

2080 LN$=LEFT$(m$,LEN(LN$)-l) 

2090 GOSUB5000:QOSUB4000 

2100 LN$»LN$+"DATA" 

2110 A$=STRS(PEEK(N))iA$=RIGHT$(A$,LEN(A$)-l) 

2120 LN$=LN$+A$+"," 

2140 NEXTN 

2150 LN$=LEFT$(m$,LENCLN$)-l) 

2160 GOSUB5000 

2170 CLOSE 

2180 QOTO90 

3499 ' ... Load in a Diskfile of Data Statements . . . 

3500 CLSiLINE INPUTFILENAME OF DATA? ";F$;PRINT 
3510 PRINT"£NTER RUN 3600 AT THE 'READY' PROMPT" 
3520 PRINTiPRINT 

3530 MERGEF$:END 

3600 PRINT"RESETTING PROGRAM SUBROUnNES ":GO6UB1505!GOSUB1 

700 

3610 QNERRDRGOTO3650 

3620 FORN=1TO3072:READM,L,D 

3630 AD-M*256+L:POKEAD,D 

3640 NEXT 

3649 ' ... When all data is exhausted, junp below on error 

3650 Z=USR1(0):RESUME20 

4000 Iia$=RIGHT$(STR$(SL),LEN(STR$(SL))-l)+" ":RETURN 

5000 PRINT#1,LN$ : SI>SLfl0 s RETURN 

20000 DATA61, 71, 191, 61, 151, 131, 61, 152, 191, 61, 153, 131, 61, 157 

20010 DKTA131,61, 158,191, 61, 159,131,61, 216,191, 61, 217, 176,61 

20020 DATA218,176,61, 219,191, 61, 220,176,61, 221, 176,61, 222,191 

20030 DATA62, 25, 140, 62, 26, 140, 62, 27, 140, 62, 28, 140, 62, 29, 140 

20040 DATA62, 30, 140, 62, 88, 131, 62, 135, 191 
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Program Listing 2, Changes to provide a 32K system program 

1 * **** DRAFTING BOARD AND DATA ENCODER **** 

2 ' ** DRAFTER/BAS MOD I DISK 32 OR 48K ** 

3 ' ** RK FINK 1/20/82 VER 1.0 ** 

4 ' ** FOR THIS 32K VERSION ** 

5 ' ** PROTECT 43000 TO EMTER BASIC ** 

£ ' *# .................... .; ;;;;;;;;;;;; ; ** 

7 ' 

8 ' 

9 CLS:PRINTCHR${23);"L O W 

RES 

GRAPHICS 

TABLE T":PORN=lTO3000iNEXT 

10 CLEAR500*CLS 

15 DEFINTA-Z:GOSUB1500iGOSUB1700 
20 ONERRORGOTO0:S=15360 
30 X=0 :Y=0: 00=42 :DA=128 
40 PS=S+X+64*Y:TP=PEEK(PS) 

49 ' s : : : : The Main program Loop ; : : : : 

50 POKEPS, CC:GOSUB200:GOSUB270 
60 IFPEH<( 14464 )=0THEN50 

68 ' :!!!: ::: ::::: 

69 ' 1 1 1 1 1 The Main Menu Routine : : : : 

70 GOSUB1000 
80 CLS: PRINT 

90 PRINTTAB(8)" DRAFTING BOARD AND DATA STATEMENT EHCODER" 

100 PRINT!PRINTTAB(25)"M E N U" 

110 PRINT" D START OR CONTINUE DRAWING 

S .... SAVE A SCREEN «. PUT DATA ON DISK 

L . . . . LOAD A PREVIOUS SCREEN FROM DISK 

X EXIT TO BASIC" 

120 PRINT :PRINT"SELECTION ??" 

130 AA$=INKEY$:IFAA$=""THEN130 

140 IFAA$="X"THENCLS:PRINT ,, SURE DATA'S SAVED?? REALLY EXIT (Y 

/N) " : INPUTAAS : IFAA$="N"THEN90ELSEEND 

150 IFAA$="S"THES2000 

160 IFAAS="D"THEHCLS:^USR2(0):GOTO30 

170 IFAA$="L"THENCLS!GorO3500 

180 GOTO130 

200 KB=PEEK( 14400) :IFKB=0THENRETURN 

201 IFKBO2THEN210 

202 IFPEEK( 14400) =2TOEN202 

203 POKEPS,128!DA$=INKEY$:IFDA$=""THEN203 

204 DA=ASC( DA? h POKEPS, DA: TP=DA:FORN=1TO200:NEXT: RETURN 

210 IF(KB=32)Aro(X<>0)THENX=X-l:POKEPS,TP«PS=S+X+64*Y:TP-PEEK(PS 

) :POKEPS,CC: RETURN 

220 IF(ICB=64)AND(X<>63)THENX=X+l:POKEPS,TP!PS==S+X+64*Y:TP=PEEK(P 

S ) s POKEPS , CC ( RETURN 

230 IF(KB»8)AND(Y>0)THENY=Y-1:POKEPS,TP:P&=S+X+64*Y:TP=PEEK(PS)! 

POKEPS , CC : RETURN 

240 IF{KB=16)AND(Y<15)THEMY=Y+l:POKEPS,TP:PS=S+X464*Y:TP=«PEEK(PS 

) i POKEPS, CC: RETURN 

250 IF(KB=128)THENPOKEPS,128:FORN=lTO200!NEXTjTP=12B:RETURN 

260 ' .... Construct A Graphics Block Loop Follows .... 

270 KD=PEEK( 14352) :IFKD=0THENRETURN 

280 IFPEEK(14400)=128THEtIPOKEPS,128:DAr=128 

290 IFPEEK( 14400 )=1THENP0KEPS, DA: TP=DA:Dfc=128: RETURN 

300 IFKD=128THEMDiA=D^RlFJ^EIFPEEK(14368)=lTraiCfl?=DBDR2 

310 IFKD=16THEM1A=DA0R4ELSEIFKD=32THENDA=DA0F8 

320 IFKD=2THENDJ^DAOR16ELSEIFKD=4THENDA=DM2R32 Program continued 
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330 POKEPS,DA.-KD=PEEK( 14352 ) !TP=€A:QOTO280 

1000 POKEPS,TP 

1010 Z=USR1(0): RETURN 

1498 ' ... These sure the string packers that set up 

1499 ' the USR subroutines .... 

1500 PRINT" INITIALIZING PROGRAM ROUTINES 

1505 U0$="1101A92100A9AF77010014EDB0C9" 

1510 PO=&HBF00 tFOPJ>LTOLa*(U0$ )STEP2 :L«*SC(MID$ (U0$ , I ) ) -48 
1520 R=ASC{(«D$(U0$,I+l))-48:L«Lr*-7*(L>9):ft=R+7*(R>9) 
1530 P0KEP0,16*L+R»P0=POl:KEXTI 

1540 DETOSR0-fiHBF00 

1541 ' USR0 . . . Clears buffers with zeros 
1.550 U1$="1100B921003C010004EDB0C9" 

1560 PO&HBF10tPORI»lTOUaj{Ul$)STEP2:L=iA9C{MIDS(UlS,I) )-48 
1570 R»ASC(MID$(Ul$,I+l))-48fL«L+7*(L>9):R=R+7*(R>9) 
1580 POKEPO,16*L+R:POPOfl:NEXTI 

1590 DERJSR1=*HBF10 

1591 ' USRl ... Saves screen to video buffer ... 
1600 U2$«"11003C2100B9010004EDB0C9" 

1610 POSfiBF20:PORI=lTOIflI(U2$)STE3>2:I>ASC(MID$(U2S,I) )-4B 
1620 ft«ASC<MID$(U2$, 1+1 ) )-48iL-L+7* (L>9) sR-R+7* (R>9) 
1630 POKEPO,16*L+R:PO-PO+1:NEXTI 

1640 DE£USR2=SHHF20 

1641 ' USR2 . . . Moves saved buffer back to screen . . . 

1 650 U3$» "0 J.00BDU003C2100B9DD2100A9FD2 100007EPE802819FE202815EE> 

7200DD23DD7300DD23DD7700DD23FD23FD23FD232313E5ED427CB52803E11SE)6 

E1FDE5E1C39A0A" 

1660 P(>«HBF30:PORI=»lTaLEN(U3S)STEP2:IWiSC(MID$(U3$,I) )-48 

1670 R=ftSCCMID$(U3$,I+l))-48tL-L+7*(L>9)!l^R+7*(R>9) 

1680 POKEPO,16*L+R:POFOH:NEXTI 

1690 DEFUSR3=«ttBF30: RETURN 

1691 ' USR3 . . . Construct Data Buffer fran video buffer 
1700 Z-USR0(0):CLS:REIUHSlt 'Clear Buffers TO ZEROS ... 

1999 ' ... Construct Data Statements & Save To Disk . . . 

2000 CLS 
2010 PRINT 

2020 LE-USR3C0):IFPEEK(SHA900)^riHEMPRIwr ,, NO VIDEO TEXT IN BUFPE 

R" t FOWM.TO500 :NEXT :CLS :GOTO30 

2030 PRINT :LINEINPUT"FILESPEC FOR DATA SAVE? ";F$:OPEN"0",l,F5 

2040 PRINT :PRINT"SAVING DATA LINES " 

2050 SA«6HA900iSL=20000iGCISUB4000 

2060 IlI$-I«$+"DArA" 

2070 FOFN-SATOSA+LE-1 

2075 IFLEN(LN$)<60THEN2110 

2080 LN$=LEFT$(LN$,LEN(LN$)-1) 

2090 GOSUB5000IGOSUB4000 

2100 LN$=LN$+"DATA" 

2110 A$=«GTR$(PEEK(N))iA$=RIOTr5(A$,IiEN{A$)-l) 

2120 U)$-UiI$-tA$+"," 

2140 NEXTN 

2150 LN$=LEFT$(LN$,LEN(LN$)-D 

2160 OOSUB5000 

2170 CLOSE 

2180 GOTO90 

3499 ' ... Load in a Diskfile of Data Statements . . . 

3500 CLS:LINEINPUT"FILEffliME OP DATA? ";F$:PRINT 
3510 PRINT'OTTER BUN 3600 AT THE 'READY' PROMPT" 
3520 PRINTiPRINT 

3530 MERGEP$:END 

3600 PRINT"RESETTING PROGRAM SUBROUTINES ":GOSUB1505iGOSUBl 

700 
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3610 CNERHOBGOTO3650 
3620 POK9=riO3072sREADM,L,D 
3630 AD=M*256+LiPCKEAD,D 
3640 NEXT 

3649 ' ... When all data is exhausted, junp below on error 

3650 Z=USR1(0):RESUME20 

4000 LH$=RrGKT?(STF!$(SL),LEN{STR?(SL))-l)+" ":RBIURN 
5000 PKnmi,Ii*l$sSI^3I/fl0!RETURN 



Program Listing 3. 

A Giant Android. These BASIC lines were constructed automatically by DRAFTER after 
about 10 minutes of screen construction time. 

20000 DATA60,17, 71, 60,19,73, 60,21, 65, 60,23, 78,60,25,84,60,28 
20010 DATA65,60,30, 78,60,32,68,60,34,82,60,36,79,60,38,73,60 
20020 MTA40,68,60, 90,188,60, 94,188,60, 154, 191,60,158,191,60 
20030 DATA216, 191,60,217, 191, 60.21B, 191,60,219,191,60,220,191 
20040 DATAB0,221, 191, 60,222, 191, 60, 223,191,60,224,191,61,23 
20050 DiflTAl 70,61, 24,191, 61, 26,170,61, 27, 191, 61, 28, 191,61, 29 
20060 DATA191, 61, 30,149,61, 32, 191,61, 33, 149,61, 87, 170,61, 88 
20070 DATA191,61,89,149,61, 95, 170,61,96,191,61,97,149,61,151 
20080 DATA130,61, 152, 131, 61, 153. 131,61, 154,143,61, 155,143,61 
20090 DATA156, 143,61, 157, 143, 61, 158, 143, 61, 159, 131,61, 160, 131 
20100 DRTA61, 161, 129,61, 213, 160,61, 214,176,61, 215, 176,61, 216 
20110 DATA176,61, 217, 176,61, 218, 150,61, 219, 131, 61, 220, 131,61 
20120 DATA221, 131,61, 222, 131, 61, 223, 180,61, 224,176,61, 225, 176 
20130 DATA61, 226, 176,62, 21, 191,62, 25, 191, 62, 32, 191, 62, 35, 191 
20140 DKTA62, 84,190,62,89,191,62,96, 191,62,100,189,62,147,186 
20150 DATA62, 152, 170,62, 153, 191,62,160, 191,62, 161, 149,62,165 
20160 EATA181, 62, 211, 142,62, 216,170,62, 217,191, 62, 224,191,62 
20170 EATA225,149,62,229,141,63,25,191,63,32,191,63,88,191,63 
20180 DATA97,191,63, 152, 191,63, 161, 191, 63, 214,188,63, 215, 188 
20190 DATM3,216, 191,63,225,191,63,226, 188,63,227,188 
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16 

HELP with Commands 

by Phil Comeau System Requiremcnts . 

Model I ur III 

16KRAM 

One disk drive 

Editor/assembler 

TRSDOS-compatible DOS 

Sometimes a short reminder can be more valuable than a three-paye 
^description in a user's manual. TRSDOS's LIB function displays a list 
ol the available commands on the video screen, but many of them re- 
quire extra parameters, and remembering the formats and possibilities 
of each command is not an easy task. The HELP program (Program List- 
ing 1) does it for you. Type in the name of the command or feature you're 

r^orT^ P\?~ d HELP tC,ls you about il - For sample, if you type HELP 
DhfcJUG, HELP responds: 

DEBUG (ON/OFF) 

ACTIVATES OR DEACTIVATES DEBUGGING MONITOR 
FOR MORE INFORMATION TYPE "HELP DEBUG COMMANDS' 
HELP can also tell you about the input formats expected by a general 
ledger program, or Scripsit formatting commands. It can also be used 
for purposes as diverse as an address and phone number list or a quick 
recipe reference. 

How It Works 

HELP begins by getting some information from the command line 
butter, the place in memory where DOS stores the last command en- 
tered. You type HELP and a word, called the search keyword describ- 
ing the information you need. A list of available keywords and their as- 
sociated informational messages is stored in the HELP program HELP 
searches this list until it locates either the keyword or the end of the list 
It it finds the keyword, the message following the keyword is displayed 
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on the video screen. If it reaches end of the list without finding the 
keyword, HELP displays the message SORRY-NO HELP IS AVAIL- 
ABLE FOR (the keyword). In either case, HELP then returns to DOS. 
The HELP program, as written, provides information on DOS com- 
mand formats. Both the keywords and the help messages are stored as 
strings. The last byte of each string is a special character called end- 
of-string, or EOS. EOS typically has the value zero. 

There are two advantages to storing text in this manner. First, strings 
may have variable length. There is no arbitrary restriction that says the 
search keyword must be, for example, eight characters long. Second, be- 
cause it uses a consistent format to store the text, some general purpose 
subroutines can be used. For instance, the subroutine DSPSTR, which is 
used to display a string on the video screen, can be lifted out of this pro- 
gram and used in another one. As long as DSPSTR is called correctly 
(with the HL register pair pointing to a string terminated by EOS), it will 
function properly. 

In this program, the list of keywords and help messages is stored as 
strings in memory, starting at the symbol HLPLST and ending at the 
symbol ENDLST. Each entry in the list is formed by a keyword, fol- 
lowed immediately by the help message associated with that keyword. 
I used EDTASM to assemble HELP. With this assembler, text can be 
represented with the DEFM (define message) pseudo instruction [it is 
called a pseudo instruction because it does not generate machine code). 
Each string defined with a DEFM consists of text followed by the symbol 
EOS, which is given the value zero in an EQUate near the start of the 
program. 

Each line of the help message, except the last, ends with a carriage re- 
turn (CR). This causes printing to resume at the beginning of the next 
line when the message is displayed. It docs not mark the end of the 
string. Two carriage returns appearing together generate a blank line be- 
fore printing resumes. Any number of carriage returns may appear with- 
in the message string. 

If you want to replace or add to the help list with your own entries, 
Program Listing 2 shows how. If the strings in this program are included 
in your HELP 1 program, typing HELP MARY SMITH results in this 
display: 

MARY SMITH 

111 1ST STREET 

ATOWN, WHEREVER 

PHONE: 123-4567 

The first keyword in the help list consists only of the EOS code. This 
is a null string, used when no search keyword is entered in the com- 
mand line. The null search keyword matches with the null help list 
keyword. HELP gives you a display of all the available keywords 
known to HELP. 
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Program Listing 1 



0001 
4318 
000D 
402D 
0033 
0000 
0020 



5200 

5200 3E0D 
5202 CD3300 
5205 1199SF 
5208 CD4852 

520B 21C252 
520E 11765F 

5211 E5 

5212 B7 

5213 ED52 

5215 El 

5216 F23452 

5219 11995F 
521C 23 
521D CD8C52 

5220 CA2D52 

5223 CD7F52 

5226 23 

5227 CD7F52 
522A C30E52 

522D 23 
522E CDB252 
5231 C34052 

5234 21765F 
5237 CDB252 
523A 21995F 
523D CDB252 

5240 3E0D 
5242 CD3300 
5245 C32D40 



00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 



HELP VI. 1 25-JUL-82 
AUTHOR: PHIL GOMEMJ 
DATE WRITTEN: 03-DEO81 



BFEftK 

CML 

CR 

DOS 

DSPC 

EOS 

SPACE 



HELP: 



SRCHLPi 



FOUND: 



NOTFND: 



HLEXIT: 



CONSTANTS 

EQU 1 
ECU 4318H 
EQU 0DH 
EQU 402EH 
EQU 33H 
EQU 
EQU ■ ' 

MAINLINE 

ORG 5200H 
LD A,CR 
CALL DSPC 
LD DE,KEYWRD 
CALL GETCML 

LD HL,HLPLST 

LD DE,ENDLST 

PUSH HL 

OR A 

SBC HL,DE 

POP HL 

JP P, NOTFND 

LD DE.KEYWRD 
INC HL 
CALL CMPSTR 
JP Z, FOUND 

CALL SKPSTR 
INC HL 
CALL SKPSTR 
JP SRCHLP 

INC HL 
CALL DSPSTR 
JP HLEXIT 

LD HL.NFMSG 
CALL DSPSTR 
LD HL.KEYWRD 
CALL DSPSTR 

LD A,CR 
CALL DSPC 
JP DOS 



<BREAK> 

DOS COJMAND LINE 
CARRIAGE RETURN 
TRSDOS RE-ENTRY POINT 
CHARACTER DISPLAY RTN 
END OF STRING 



rLEAVE A BLANK LINE 

;GET KEYWORD FROM CMD LINE 



;SRCH FOR KW UNTIL WE REACH 
jTHE END OF THE TABLE 



fHAVE WE FOUND THE KEYWORD? 

;IF NOT, FIND END OF KW 
;THEN SKIP TO NEXT KW 



;IF FOUND, DISPLAY THE 
;HELP MESSAGE 
?AND END 

;IF NOT FOUND, SAY SO 



rLEAVE A BLANK LINE 
;BACK TO DOS 



GETCML: GET PARAM STRING FROM CMD LINE 
ENTRY: DE POINTS TO START OF PARAM STRING BFR 
EXIT: DE POINTS TO END OF PARAMETER STRING 
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5248 F5 


00590 GETCML: 


PUSH AF 






5249 E5 


00600 


PUSH HL 






524A 211843 


00610 
00620 ; 


LD HL,CML 




;POINT TO CMD LINE 


524D 7E 


00630 SKIPNM: 


LD A,(HL) 




;SKIP PROGRAM NAME 


524E FE20 


00640 


CP SPACE 




;BY FINDING 1ST SPACE 


5250 CA5E52 


00650 


JP Z, SKIPSP 






5253 FE0D 


00660 


CP CR 




;0R CR 


5255 CA5E52 


00670 


JP Z, SKIPSP 






5258 FE01 


00680 


CP BREAK 




;0R BREAK 


525A 23 


00690 


INC HL 




;IN CMD LINE 


525B C34D52 


00700 
00710 ; 


JP SKIPNM 






525E 7E 


00720 SKIPSP: 


LD A, (HL) 




;FIND 1ST NON-SPACE Q 


525F FE20 


00730 


CP SPACE 






5261 C26852 


00740 


JP NZ, LDPRM 






5264 23 


00750 


INC HL 






5265 C35E52 


00760 

00770 ; 


JP SKIPSP 






5268 7E 


00780 LDPRM: 


LD A, (HL) 




;LOAD PARAM INTO (DE) 


5269 FE0D 


00790 


CP CR 




; UNTIL A <CR> 


526B CA7952 


00800 


JP Z, GCEXIT 






526E FE01 


00810 


CP BREAK 




;0R A <BREAK> IS FOUN 


5270 CA7952 


00820 


JP Z, GCEXIT 






5273 12 


00830 


LD (DE),A 






5274 23 


00840 


INC HL 




;TRY NEXT CHAR 


5275 13 


00850 


INC DE 






5276 C36352 


00860 
00870 ; 


JP LDPRM 






5279 3E00 


00880 GCEXIT: 


LD A, EOS 




rMARK THE END OF STRING 


527B 12 


00890 


LD (DE),A 






527C El 


00900 


POP HL 






527D Fl 


00910 


POP AF 






527E C9 


00920 


RET 








00930 ; 












00940 ; 












00950 ; 




SKPSTR: FIND 


END OF STRING 




00960 ; 




ENTRY: HL POINTS 


TO START OF STRING 




00970 : 




EXIT: HL POINTS TO EOS 




00980 ; 










527F F5 


00990 SKPSTR: 


PUSH AF 






5280 7E 


01000 SKPLP: 


LD A, (HL) 




rWHILE (HL)OEOS 


5281 FE00 


01010 


CP EOS 






5283 GA8A52 


01020 


JP 2, SKEXIT 






5286 23 


01030 


INC HL 




;TRY NEXT CHAR 


5287 C38052 


01040 


JP SKPLP 






528A Fl 


01050 SKEXIT- 


POP AF 






528B C9 


01060 


RET 








01070 












01080 












01090 




CMPSTR: COMPARE ! 


STRINGS 




01100 




ENTRY: HL POINTS 


TO START OF STRING1 




01110 




DE POINTS 


TO START OF STRING2 




01120 




EXIT: HL POINTS 


TO END OF STRING1 OR 




01130 




PLACE WHERE (HL)o(DE) 




01140 




DE POINTS 


TO END OF STRING2 OR 




01150 




PLACE WHERE (HL)o(DE) 




01160 




AF = 


-1 IF (HL) < (DE) 




01170 






IF (HL) = (DE) 




01180 






+1 IF (HL) > (DE) 
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01190 








528C C5 


01200 CMPSTR: 


PUSH BC 




528D 1A 


01210 CSLP; 


LD A, (DE) 


;VMILE (HL)=(DE) 


528E BE 


01220 


CP (HL) 




528F C29D52 


01230 


JP NZ, NOTEQ 




5292 7E 


01240 


LD A, (HL) 


;AND (HL)OEOS 


5293 FE00 


01250 


CP EOS 




5295 CAAE52 


01260 


JP Z,EQ 




5298 23 


01270 


INC HL 


;TRY NEXT CHAR 


5299 13 


01280 


INC DE 




529A C38D52 


01290 
01300 ; 


JP CSLP 




529D 1A 


01310 NOTEQ: 


LD A, (DE) 


;IF (HL)<(DE) 


529E 47 


01320 


LD B,A 




529F 7E 


01330 


LD A, (HL) 




52A0 90 


01340 


SUB B 




52A1 F2A952 


01350 


JP P,GT 




52A4 3EFF 


01360 


LD A,0FFH 


;THEN RETURN -1 


52A6 C3B052 


01370 


JP CSEXIT 




52A9 3E01 


01380 GT: 


LD A,l 


•ELSE RETURN +1 


52AB C3B052 


01390 
01400 ; 


JP CSEXIT 




52AE 3E00 


01410 EQi 
01420 ; 


LD A,0 


;(HL)-(DE), SO RETURN 


52B0 CI 


01430 CSEXIT: 


POP BC 




52B1 C9 


01440 


RET 






01450 










01460 










01470 




DSPSTR: DISPLAY 


STRING 




01480 




ENTRY! HL POINTS 


TO START OF STRING 




01490 




EXIT: HL POINTS TO EOS 




01500 








52B2 F5 


01510 DSPSTR: 


PUSH AF 




52B3 7E 


01520 DSLP: 


LD A, (HL) 


fWHILE (HL)OEOS 


52B4 FE00 


01530 


CP EOS 




52B6 CAC052 


01540 


JP Z,DSEXIT 




52B9 CD3300 


01550 


CALL DSPC 


; DISPLAY CHAR 


52BC 23 


01560 


INC HL 




52BD C3B352 


01570 


JP DSLP 




52C0 Fl 


01580 DSEXITs 


POP AF 




52C1 C9 


01590 


RET 






01600 










01610 










01620 




HELP LIST 






01630 




EACH HELP LIST ENTRY IS FORMATTED AS FOLLI 




01640 




<KEYWORD STRING > 


<HELP MESSAGE STRING> 




01650 








52C2 


01660 HLPLST 


EQU $ 




52C2 00 


01670 


DEFB EOS 




52C3 00 


01680 


DEFB EOS 




52C4 48 


01690 


DEFM 'HELP VI. 1 


25-%JUL-^2' 


52D8 0D 


01700 


DEFB CR 




52D9 0D 


01710 


DEFB CR 




52DA 54 


01720 


DEFM "TO GET HELP ON ONE OF THE FOLLOWING 


52FE 43 


01730 


DEFM 'COMANDS' 




5305 0D 


01740 


DEFB CR 




5306 54 


01750 


DEFM 'TYPE "HELP 


<COMMAND>"j' 


531C 0D 


01760 


DEFB CR 




531D m 


01770 


DEFB CR 




531E 41 


01780 




DEFM 'APPEND AUTO ATTRIB BASIC 
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5341 


42 


01790 


5350 


0D 


01800 


5351 


43 


01810 


5374 44 


01820 


5380 


0D 


01830 


5381 


44 


01840 


53A4 4C 


01850 


53B1 


0D 


01860 


53B2 


50 


01870 


53D5 


54 


01880 


53B4 


0D 


01890 


53E5 


0D 


01900 


53E6 


20 


01910 


5403 


0D 


01920 


5404 


20 


01930 


5423 


00 


01940 
01950 


5424 


41 


01960 


542A 00 


01970 


542B 41 


01980 


5440 


0D 


01990 


5441 


0D 


02000 


5442 


20 


02010 


5463 


00 


02020 
02030 


5464 


41 


02040 


5468 


00 


02050 


5469 


41 


02060 


5475 


0D 


02070 


5476 


0D 


02080 


5477 


20 


02090 


549B 


57 


02100 


54AD 


00 


02110 
02120 


54AE 


41 


02130 


54B4 


00 


02140 


54B5 


41 


02150 


54D4 


0D 


02160 


54D5 


0D 


02170 


54D6 


20 


02180 


54FB 0D 


02190 


54fc 


20 


02200 


551D 


41 


02210 


5529 


00 


02220 
02230 


552A 41 


02240 


5535 


00 


02250 


5536 


41 


02260 


5550 


0D 


02270 


5551 


0D 


02280 


5552 


20 


02290 


5573 


0D 


02300 


5574 


20 


02310 


5598 


0D 


02320 


5599 


20 


02330 


55BD 0D 


02340 


55BE 


20 


02350 


55DE 


0D 


02360 


55DF 


20 


02370 


55F2 


4B 


02380 



DEFM 'BASIC2 


BASICR' 




DEFB CR 






DEFM 'CLOCK 


COPY 


DATE DEBUG 


DEFM "DEVICE 


DIR 1 




DEFB CR 






DEFM 'DUMP 


KILL 


FREE LIB 


DEFM 'LIST 


LOAD' 




DEFB CR 






DEFM 'PRINT 


PROT 


RENAME TIME 


DEFM 'TRACE 


VERIFY' 




DEFB CR 






DEFB CR 






DEFM ' < > 


INDICATE OPTIONAL VALUES' 


DEFB CR 






DEFM ' / 


INDICATES 


CHOICE OF VALUES' 


DEFB EOS 







DEFM 'APPEND' 

DEFB EOS 

DEFM 'APPEND FT LEI TO FILE2 ' 

DEFB CR 

DEFB CR 

DEFM ' ADDS FILE1 ONTO THE END OF FILE2 ' 

DEFB EOS 

DEFM 'AUTO' 

DEFB EOS 

DEFM "AUTO COMMAND' 

DEFB CR 

DEFB CR 

DEFM ' SPECIFIES A COMMAND TO BE EXECUTED ' 

DEFM 'WHEN DOS IS BOOTED' 

DEFB EOS 

DEFM 'ATTRIB' 

DEFB EOS 

DEFM 'ATTRIB FILESPEC < (PARM. . .FARM) > ' 

DEFB CR 

DEFB CR 

DEFM ' ALTERS PROTECTION STATUS OF FILESPEC' 

DEFB CR 

DEFM ' FOR MORE INFORMATION TYPE "HELP ' 

DEFM 'ATTRIB PARM" ' 

DEFB EOS 

DEFM 'ATTRIB PARM' 

DEFB EOS ;2ND LEVEL EOTRY 

DEFM 'ATTRIB COMMAND PARAMETERS:' 

DEFB CR 

DEFB CR 

DEFM ' I MAKE FILE INVISIBLE' 

DEFB CR 

DEFM ' ACC=PSW1 ACCESS PASSWORD = PSW1' 

DEFB CR 

DEFM ' UPD=PSW2 UPDATE PASSWORD = PSW2 ' 

DEFB CR 

DEFM ' PROT=LVL ACCESS LEVEL = LVL' 

DEFB CR 

DEFM ' LVL: ' 

DEFM 'KILL/RENAMEA*R1TE/READ/EXEC' 
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560D 00 


02390 
02400 ; 


DEFB BOS 


560E 42 


02410 


DEEM 'BASIC 


5613 00 


02420 


DEFB EOS 


5614 42 


02430 


DEFM 'BASIC <*>' 


561D 0D 


02440 


DEFB CR 


561E 0D 


02450 


DEFB CR 


56LF 20 


02460 


DEFM ' LOADS THE DISK BASIC INTERPRETER- ' 


5641 0D 


02470 


DEFB CR 


5642 20 


02480 


DEFM ' BASIC * RETURNS TO BASIC WITHOUT ' 


5664 44 


02490 


DEFM 'DESTROYING PROGRAM" 


5676 00 


02500 
02510 ; 


DEFB EOS 


5677 42 


02520 


DEFM 'BASIC2' 


567D 00 


02530 


DEFB EOS 


567E 42 


02540 


DEFM 'BASIC2' 


5684 0D 


02550 


DEFB CR 


5685 0D 


02560 


DEFB CR 


5686 20 


02570 


DEFM ' RETURNS TO LEVEL II (NON-DISK) BASIC 


56AC 49 


02580 


DEFM 'INTERPRETER' 


56B7 00 


02590 
02600 ; 


DEFB EOS 


56B8 42 


02610 


DEFM 'BASICR' 


56BE 00 


02620 


DEFB EOS 


56BP 42 


02630 


DEFM 'BASIC <*>' 


56C8 0D 


02640 


DEFB CR 


56C9 0D 


02650 


DEFB CR 


56CA 20 


02660 


DEFM ' SAME AS BASIC BUT INCLUDES ' 


56E6 52 


02670 


DEFM 'RENUMBERING CAPABILITY' 


56PC 00 


02680 
02690 ; 


DEFB EOS 


56FD 43 


02700 


DEFM 'CLOCK' 


5702 00 


02710 


DEFB EOS 


5703 43 


02720 


DEFM 'CLOCK <(0N/OFF)>' 


5713 0D 


02730 


DEFB CR 


5714 0D 


02740 


DEFB CR 


5715 20 


02750 


DEFM ' TURNS REAL-TIME CLOCK DISPLAY ON OR 


573A 4F 


02760 


DEFM 'OFF' 


57 3D 00 


02770 

02780 ; 


DEFB ECS 


573E 43 


02790 


DEFM 'COPY' 


5742 00 


02300 


DEFB EOS 


5743 43 


02810 


DEFM 'COPY FILEl TO FILE2" 


5756 00 


02620 


DEFB CR 


5757 0D 


02830 


DEFB CR 


5758 20 


02840 


DEFM ' MAKES A DUPLICATE COP* OF FILEl ' 


5779 43 


02850 


DEFM 'CALLED FILE2' 


5785 00 


02860 
02870 ; 


DEFB EOS 


5786 44 


028B0 


DEFM 'DATE' 


578A 00 


02890 


DEFB EOS 


578B 44 


02900 


DEFM 'DATE !*l/DD/YY' 


5798 0D 


02910 


DEFB CR 


5799 0D 


02920 


DEFB CR 


579A 20 


02930 


DEFM ' SETS SYSTEM DATE' 


57AB 00 


02940 
02950 ; 


DEFB EOS 


57AC 44 


02960 


DEFM 'DEBUG' 


57B1 00 


02970 


DEFB EDS 


57B2 44 


02980 


DEFM 'DEBUG <(ON/OFF)>' 


57C2 0P 


02990 


DEFB CR 
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57C3 0D 


03000 


DEFB 


CR 




57C4 20 


03010 


DEFM 


1 ACTIVATES OR DEACTIVATES DEBUGGING ' 


57E8 4D 


03020 


DEFM 


'MONITOR' 




57EF 0D 


03030 


DEFB 


CR 




57F0 20 


03040 


DEFM 


' FOR MORE INFORMATION TYPE "HELP DEBUG ' 


5817 43 


03050 


DEFM 


"COMMANDS'" 




5820 00 


03060 
03070 t 


DEFB 


EOS 




5821 44 


03080 


DEFM 


'DEBUG COMMANDS' 


582F 00 


03090 


DEFB 


EOS 




5830 20 


03100 


DEFM 


' DEBUG COMMANDS: 


5840 0D 


03110 


DEFB CR 




5841 20 


03120 


DEFM 


' A 


SETS DISPLAY TO ASCII ' 


5865 46 


03130 


DEFM 


'FORMAT' 




586B 0D 


03140 


DEFB 


CR 




586C 20 


03150 


DEFM 


1 C 


SINGLE STEP, EXECUTE CALLS' 


5894 0D 


03160 


DEFB 


CR 




5895 20 


03170 


DEFM 


' D ADR 


DISPLAY MEMORY STARTING ' 


58BB 41 


03180 


DEFM 


'AT ADR' 




58C1 0D 


03190 


DEFB 


CR 




58C2 20 


03200 


DEFM 


1 G Al,Bl,B2 


JUMP TO Al; Bl S. B2 ARE ' 


58E8 4F 


03210 


DEFM 


'OPT. BREAKPOINTS' 


58F8 0D 


03220 


DEFB 


CR 




58F9 20 


03230 


DEFM 


' H 


SETS DISPLAY TO ' 


5917 48 


03240 


DEFM 


'HEXADECIMAL FORMAT' 


5929 0D 


03250 


DEFB 


CR 




592A 20 


03260 


DEFM 


' I 


SINGLE STEP' 


5943 0D 


03270 


DEFB 


CR 




5944 20 


03280 


DEFM 


' M ADR 


MODIFY MEMDRY STARTING AT ' 


596C 41 


03290 


DEFM 


'ADR' 




596F 0D 


03300 


DEFB 


CR 




5970 20 


03310 


DEFM 


' R RP VAL 


LOADS VAL INTO REGISTER ' 


5996 50 


03320 


DEFM 


'PAIR RP' 




599D 0D 


03330 


DEFB 


CR 




599E 20 


03340 


DEFM 


' S 


SETS DISPLAY TO FULL ' 


59C1 53 


03350 


DEFM 


'SCREEN MODE' 




59GC 0D 


03360 


DEFB 


CR 




59CD 20 


03370 


DEFM 


' U 


SETS DYNAMIC DISPLAY ' 


59F0 55 


03380 


DEFM 


'UPDATE MODE" 




59FB 0D 


03390 


DEFB 


CR 




59FC 20 


03400 


DEFM 


' X 


SETS DISPLAY TO REGISTER ' 


5A23 46 


03410 


DEFM 


'FORMAT' 




5A29 0D 


03420 


DEFB 


CR 




5A2A 20 


03430 


DEFM 


' :/- 


INCREMENTS/DECREMENTS PAGE' 


5A52 00 


03440 
03450 ; 


DEFB 


EOS 




5A53 44 


03460 


DEFM 


'DEVICE' 




5A59 00 


03470 


DEFB 


EOS 




5A5A 44 


03480 


DEFM 


'DEVICE' 




5A60 0D 


03490 


DEFB 


CR 




5A61 0D 


03500 


DEFB 


CR 




5A62 20 


03510 


DEFM 


1 LISTS ALL 


CURRENTLY DEFINED I/O ' 


5A83 44 


03520 


DEFM 


'DEVICES' 




5A8A 00 


03530 
03540 ; 


DEFB 


EOS 




5A8B 44 


03550 


DEFM 


'DIR' 




5A8E 00 


03560 


DEFB 


EOS 




5A8F 44 


03570 


DEFM 


'DIR <;D> (<S 


,I,A>)' 


5AA1 0D 


03580 


DEFB 


CR 




5AA2 0D 


03590 


DEFB 


CR 




5AA3 20 


03600 


DEFM 


' DISPLAYS DIRECTORY OF DISK IN DRIVE :D' 
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5ACA 0D 
5ACB 20 
5AF0 4F 

5af4 00 

5AF5 44 
5APC 00 
5AFD 44 
5B09 0D 
5B0A 3D 
5B0B 20 
5B26 4E 
5B39 0D 
5B3A 20 
5B58 4E 
5B68 0D 
5B69 20 
5BBA 00 

SBBB 44 
5B3F 00 
5B90 44 
5BA2 3C 
5BA9 3D 
5BAA 0D 
5BAB 20 
5BCE 42 
5BDB 0D 
5BDC 20 
5C01 4C 
5C12 0D 
5C13 20 
5C33 53 
5C3C 00 

5C3D 46 
5C41 00 
5C42 46 
5C46 0D 
5047 0D 
5C48 20 
5C69 00 

5C6A 4B 
5C6E 00 
506F 4B 
5C7C 0D 
5C7D 0D 
5C7E 20 
5C99 00 

5C9A 4C 
5C9D 00 
5C9E 4C 
5CA1 0D 
5CA2 0D 
5CA3 20 
5CC2 00 

5CC3 4C 
5CC7 00 



03610 

03620 

03630 

03640 

03650 ; 

03660 

0367(3 

03680 

03690 

03700 

03710 

03720 

03730 

03740 

03750 

03760 

03770 

03780 

03790 ; 

03800 

03810 

03820 

03830 

03840 

03850 

03860 

03870 

03880 

03890 

03900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 

04010 

04020 

04030 

04040 

04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 

04130 

04140 

04150 

04160 

04170 

04180 

04190 

04200 

04210 



DEFB CR 

DEFM ' FOR ACRE INFORMATION TYPE "HELP DIR ' 

DEFM 'OPT'" 

DEPB EOS 

DEFM "DIR OFT' 

DEFB EOS 

DEFM 'DIR OPTIONS:' 

DEFB CR 

DEFB CR 

DEFM ' S DISPLAY ALL SYSTEM AND ' 

DEFM 'NON-INVISIBLE FILES' 

DEFB CR 

DEFM ' I DISPLAY ALL INVISIBLE AND ' 

DEFM 'NON-SYSTEM FILES' 

DEFB CR 

DEFM ' A DISPLAY DISK SPACE ALLOCATION" 

DEFB EOS 

DEFM 'DUMP' 

DEFB EOS 

DEFM 'DUMP FILE (STARI^X 1 'AAAA' ' ,END=X' 'BBBB 1 ' ' 

DEFM '<,TRA=X"CCCC">)' 

DEFB CR 

DEFB CR 

DEFM ' DUMPS MEMORY FROM ADDRESS AAAA TO ' 

DEFM 'BBBB TO DISK, ' 

DEFB CR 

DEFM ' WITH FILESPEC "FILE". WHEN FILE IS ' 

DEFM 'LOADED, EXECUTION' 

DEFB CR 

DEFM ' WILL BEGIN AT ADDRESS CCCC {IF ' 

DEFM 'SUPPLIED)' 

DEFB EOS 

DEFM 'FREE' 

DEFB EOS 

DEFM 'FREE' 

DEFB CR 

DEFB CR 

DEFM ' DISPLAYS FREE SPACE ON ALL DISKS' 

DEFB EOS 

DEFM 'KILL' 

DEFB EOS 

DEFM 'KILL FILESPEC' 

DEFB CR 

DEFB CR 

DEFM ' DELETES FILESPEC FROM DISK' 

DEFB EOS 

DEFM 'LIB' 

DEFB EOS 

DEFM 'LIB' 

DEFB CR 

DEFB CR 

DEFM ' DISPLAYS NAMES OF DOS COMMANDS' 

DEFB EOS 

DEFM 'LIST' 
DEFB EOS 
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50C8 4C 


04220 


DEFM 


"LIST FILESPEC' 


5CD5 0D 


04230 


DEPB 


CR 


5CD6 0D 


04240 


DEPB 


CR 


5CD7 20 


04250 


DEFM 


' DISPLAYS CONTENTS OF FILESPEC ON ' 


5CF9 53 


04260 


DEFM 


'SCREEN' 


5CFF 00 


04270 
04280 ; 


DEFB 


EOS 


5D00 4C 


04290 


DEFM 


'LOAD' 


5D04 00 


04300 


DEFB 


EOS 


5D05 4C 


04310 


DEFM 


'LOAD FILESPEC' 


5D12 00 


04320 


DEFB 


CR 


5D13 0D 


04330 


DEFB 


CR 


5D14 20 


04340 


DEFM 


' LOADS FILESPEC FROM DISK TO MEMORY' 


5D37 00 


04350 
04360 ; 


DEFB 


EOS 


5D38 50 


04370 


DEFM 


'PRINT' 


5D3D 00 


04380 


DEFB 


EOS 


5D3E 50 


04390 


DEFM 


'PRINT FILESPEC' 


5D4C 0D 


04400 


DEFB 


CR 


5D4D 0D 


04410 


DEFB 


CR 


5D4E 20 


04420 


DEFM 


' PRINTS CONTENTS OF FILESPEC ON PRINTER' 


5D75 00 


04430 
04440 ; 


DEFB 


EOS 


5D76 50 


04450 


DEFM 


'PROT' 


5D7A 00 


04460 


DEFB 


EOS 


507B 50 


04470 


DEFM 


'PROT <sD> <(PARM...PARM)>' 


5D94 0D 


04480 


DEFB CR 


5D95 0D 


04490 


DEFB CR 


5D96 20 


04500 


DEFM 


' CHANGES PROTECTION STATUS OF ALL, ' 


5DB8 46 


04510 


DEFM 


'FILES ON DRIVE :D' 


5DC9 0D 


04520 


DEFB 


CR 


5DCA 20 


04530 


DEFM 


' FOR MORE INFORMATION TYPE "HELP PROT ' 


5DF0 50 


04540 


DEFM 


' PARM" ' 


5DF5 00 


04550 
04560 ; 


DEFB 


EOS 


5DP6 50 


04570 


DEFM 


'PROT PAFM' 


5DFF 00 


04580 


DEFB 


EOS 


5E00 50 


04590 


DEFM 


'PROT PARAMETERS:' 


5E10 0D 


04600 


DEFB CR 


5E11 0D 


04610 


DEFB CR 


5E12 20 


04620 


DEFM 


' PW CHANGE MASTER PASSWORD' 


5E32 0D 


04630 


DEFB 


CR 


5E33 20 


04640 


DEFM 


' UNLOCK REMOVE PASSWORDS FROM USER ' 


5E58 46 


04650 


DEFM 


'FILES' 


5E5D 0D 


04660 


DEFB CR 


5E5E 20 


04670 


DEFM 


' LOCK ASSIGN MASTER PASSWORD TO ' 


5E82 55 


04680 


DEFM 


'USER FILES' 


5E8C 00 


04690 
04700 ; 


DEFB 


EOS 


5E8D 52 


04710 


DEFM 


'RENAME 1 


5E93 00 


04720 


DEFB 


EOS 


5E94 52 


04730 


DEFM 


'RENAME FILE1 TO FILE2 ' 


5EA9 0D 


04740 


DEFB CR 


5EAA 0D 


04750 


DEFB 


CR 


5EAB 20 


04760 


DEFM 


1 CHANGES NAME OF F1LE1 TO FILE2* 


5ECA 00 


04770 
04780 ; 


DEFB 


EOS 


5ECB 54 


04790 


DEFM 


'TIME' 


5ECP 00 


04800 


DEFB 


EOS 


5ED0 54 


04810 


DEFM 


'TIME HH:MM:SS' 


5EDD 0D 


04820 


DEFB 


CR Program contii 
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5EDE 0D 


04830 


DEFB CR 


5EDF 20 


04840 


DEFM 


1 SETS REAL TIME CLOCK* 


5EF4 00 


04850 
04860 ; 


DEFB 


EOS 


5EF5 54 


04870 


DEFM 


'TRACE' 


5EFA 00 


04880 


DEFB 


ECS 


5EFB 54 


04890 


DEFM 


'TRACE < (ON/OFF) >' 


5F0B 0D 


04900 


DEFB 


CR 


5F0C 0D 


04910 


DEFB 


CR 


5F0D 20 


04920 


DEFM 


' SETS DISPLAY OF PC REGISTER ON OR OFF' 


5F33 00 


04930 
04940 ; 


DEFB 


BOS 


5F34 56 


04950 


DEFM 


'VERIFY' 


5F3A 00 


04960 


DEFB 


EOS 


5F3B 56 


04970 


DEFM 


'VERIFY < (.ON/OFF) >' 


5F4C 0D 


04980 


DEFB 


CR 


5F4D 0D 


04990 


DEFB 


CR 


5F4E 20 


05000 


DEFM 


' SETS DISK WRITE VERIFICATION ON OR OFF' 


5F75 00 


05010 
05020 ; 


DEFB 


EOS 


5F76 


05030 ENDLST 


EQU ? 




5F76 53 


05040 NFMSG: 


DEFM 


'SORRY — NO HELP IS AVAILABLE FOR ' 


5F98 00 


05050 


DEFB 


EOS 


5F99 


05060 KEYWRD 
05070 ; 


EQU 5 




5200 


05080 


END HELP 



00000 TOTAL ERRORS 



Program Listing 2 

HELP LIST 

EACH HELP LIST ENTRY IS FORMATTED AS FOLLOWS: 

<KEYWORD STRING> <HELP MESSAGE STRING> 

HLPLST EQU $ ;THIS MARKS START OF HELP LIST 

DEFB EOS 
DEFB EOS 

DEFM 'HELP VI. 1 25-JUL-82' 
DEFB CR 
DEFB CR 

DEFM "THIS IS EXAMPLE 1.' 
DEFB CR 

DEFM "THESE NAMES ARE KEYWORDS IN A SAMPLE' 
DEFB CR 

DEFM 'NAME AND ADDRESS LIST: ' 
DEFB CR 
DEFB CR 

DEFM 'ALICE ARMSTRONG, MARY SMITH, BRIDGET TURNER' 
DEFB CR 

DEFM 'SHARON WILLIAMS' 
DEFB CR 
DEFB CR 

DEFM 'TO FIND AN ADDRESS AND PHONE NUMBER, TYPE' 
DEFB CR 

DEFM ' "HELP <NAME>"' 
DEFB EOS 
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DEFM 'ALICE ARMSTRONG' ;THIS IS THE KEYWORD 
DEFB EDS ?EOS MARKS END OF KEYWORD 

j INFO FOR ALICE A. FOLLOWS 
DEFM 'ALICE ARMSTRONG' 
DEFB CR 

DEFM '377 OCTAL AVENUE' 
DEFB CR 

DEFM 'TROIS-RTVERES, OUEBEC' 
DEFB CR 

DEFM 'PHONE: 745-1263" 
DEFB EOS ,*EOS MARKS END OF INFO 

DEFM 'MARY SMITH' 

DEFB EOS 

DEFM 'MARY SMITH 1 

DEFB CR 

DEFM '111 1ST STREET' 

DEFB CR 

DEFM 'ATOWN, WHEREVER' 

DEFB CR 

DEFM "PHONE: 123-4567' 

DEFB BOS 

DEFM 'BRIDGET TURNER' 
DEFB EOS 

DEFM 'BRIDGET TURNER' 
DEFB CR 

DEFM *2 RADIUS CIRCLE' 
DEFB CR 

DEFM 'COMPASS, CWTARIO' 
DEFB CR 

DEFM 'PHONE: 314-1592' 
DEFB EOS 
* 

DEFM 'SHARON WILLIAMS' 

DEFB EOS 

DEFM 'SHARON WILLIAMS' 

DEFB CR 

DEFM '8080 PROCESSOR BLVD' 

DEFB CR 

DEFM 'MEMORY LAKE, MANITOBA' 

DEFB CR 

DEFM 'PHONEs 280-4116' 

DEFB EOS 

ENDLST EQU ? ;THIS MARKS THE EHD OF HELP LIST 
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17 

Automatic 
Master Disk 
Directory 

by Jack R. Smith System Requirements: 

Model III 

One disk drive 

TRSDOS-compatible DOS 

Printer optional 



Do you get tired of thumbing through your collection of disks looking 
for a particular program? My program, INDEX, automatically reads 
the directory information from each disk, then sorts and saves the infor- 
mation on a master disk program index. 

The basis of the first, extraction part of INDEX is a machine-lan- 
guage TRSDOS RAM call, SRAMDIR, which allows you to examine a 
disk directory one entry at a time or altogether. SRAMDIR is an easy 
routine to invoke from BASIC. Set the HL, B, and C registers of the 
Z80 to the initial condition described in the Model HI Disk System 
Owner's Manual (Figure 1). SRAMDIR is then called with a USR in- 
struction. When the directory has been written into the specified 
memory locations, control is returned to the BASIC interpreter. 

The initialization, calling and return functions are accomplished in the 
short assembler program shown in Program Listing 1. Line 100 ex- 
changes the register set in current use with the alternate set (the prime 
registers), saving the contents of the normal register set. Line 110 loads 
the HL register pair with the starting address of the memory location 
where the directory information is to be placed. 

Since approximately 1761 bytes of directory information have to be ac- 
commodated, as well as the calling program, a 48K machine should start 
storing the directory about 2000 bytes below the top of the memory, or at 
F700H. Line 120 tells the routine to read the directory using drive 1 . Line 
130 selects transfer of the entire directory into memory. Line 140 trans- 
fers control to the SRAMDIR routine. Line 150 restores the normal regis- 
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ter set of the Z80 so that return to BASIC is possible without loss of infor- 
mation. Line 160 returns control to the BASIC interpreter. 

The directory information is written sequentially into memory, start- 
ing with the address loaded into the HL register. According to Radio 
Shack, this directory information is written in blocks 21 bytes in length, 
in the format FILENAME/EXT: DR, left justified, and padded with trail- 
ing blanks for a length of 15 bytes, followed by the file's protection level 
information, its length, and other information which is not of interest 
here (see Figure 2). 

Register Contents Purpose 

HL F700H Points to start of destination address of directory infor- 

mation F700H for 64K machines. 
B 1H Drive to be read from 

C OH Switch— OH copies entire directory 

Figure 1. Entry conditions to SRAMDIR 

A 
File names without /EXT 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 
Filename:d PELS G 

B 

File names with /EXT 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 
Filename:d PELS G 

P: Protection Level 

E: End of File 

L: Logical Record Length 

S: Last Sector in File 

G: Number of Granules in File 

Figure 2. Directory files returned by $RAMDIR 

FILENAME/EXT is the user-generated file name and optional exten- 
sion under which the program is stored. DR is the drive number that the 
disk is read from, in this case drive number 1. A program saved with the 
command SAVE "HELLO/BAS" is transferred into memory by SRAM- 
DIR as HELLO/BAS: lbbbbXXXXXXX, where b indicates a blank and X 
stands for numeric information not used in the indexing program. The 
last entry in the directory is a plus sign ( + ), 

Any file stored with an extension takes 22 characters, while file names 
without an extension are transferred into memory using 21 characters. 
Consequently, each directory entry must be examined for a slash (/), 
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which if found tells the program that the start of the next directory entry 
is found 22 characters after the file under examination. If no slash is 
found, then the next file entry begins 21 characters later. 

The second part of the program reads the resulting files into the array 
A$(n), sorts the array, and prints the sorted array. Disks are identified 
with a user-supplied two-digit serial number from 01 to 99, which is then 
appended to the FILENAME/EXT extracted from the first part of the 
program. After the program has read the last disk, a dummy disk num- 
ber of is entered and control branches to the print routine. 

To speed up the sort, I use the TRSDOS CMD"0" machine-language 
sort routine, which takes only five seconds to sort 400 entries. Since 
printing 400 directory entries—one per line— would use seven pages, I 
use a 4-column format, which resembles a dictionary in layout and per- 
mits the same amount of information to be contained on two pages. The 
print parameters are based on an Epson MX- 100 printer, with automatic 
page performation skip. 

Operating the program is simple. The program assumes that you have 
numbered each of your disks with a different ID number between 1 and 
99. INDEX also requires that you leave a TRSDOS system disk in drive 
while the program is reading your disk from drive 1 . If you wish to read 
the disk that is in drive 0, substitute any other TRSDOS system disk. 

When the program is run, it asks for the ID number of the first disk to 
be read, then if that disk is mounted on drive number 1. If your reply is 
Y, the directory is read and the directory names are displayed on the 
screen as they are read from memory by the program. When the last 
name has been read, you are asked for the next disk ID number. If no 
more disks are to be read, type as an ID, and an alphabetized master di- 
rectory will be printed as hard copy. 

Program Analysis 

Lines 100-160: Initialize program, set MEMSIZE 

Lines 170-240: Set up disk ID and make sure disk is mounted. 

Lines 250-330: Line 250 tells the BASIC program the address to trans- 
fer control to when the machine-language routine is called. Lines 
260-330 are the machine-language routine and the POKE statements for 
putting it into memory. 

Line 340: Calls the machine-language routine. 

Lines 500-520: Initialize the memory reading section. 

Lines 530-610: Examine the memory, byte by byte. Non-printing 
characters are stripped, and the colon (:) delimiter is searched for. Con- 
trol is transferred out of the loop when each FILENAME/EXT is read or 
when the end of directory is reached. 

Lines 1000-1030: Prompt operator for all disks after the first one. 

Lines 1200- 1270: Subroutine which is called after a complete record 
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has been found in lines 530-610. The end of a record is identified by a co- 
lon (:}. The disk ID is added to the file name and the resulting string 
stored in A$(K). Based on the presence or absence of a slash (/), the next 
file name is looked for 21 or 22 characters after the start of the file name 
which has just been completed. 

Lines 4000-4060: Print a header at the top of the page in double wide 
characters, and the date of the run. 

Line 4070: Activates automatic page perforation skip feature of Epson 
printers. 

Lines 4080-4100: Use TRSDOS utility sort routine. 

Lines 4110-4180: Break the sorted array into quarters, and then print 
the four columns. 

Changes for 32K Machines 

Line 130 POKE 16562,&HF7 : POKE 16561,&HB7 

Line 140 CLEAR 12000 

Line 250 DEFUSRO = &HBFO0 

Line 260 DATA 217,33,248,183,6, 

1,14,0,205,144,66,217,201 
Line 310 POKE (&HBF00 + X),P 
Line 530 A$ = CHR$(PEEK(&HB7F8 + NN|) 

Changes for Other 132-Column Printers 

Line 4030 LPRINT TAB(53) "MASTER DISK INDEX LIST" 
Line 4070 Delete this line. 





Program Listing 


1. $RAMDIR calling program 


0000 D9 


00100 


EXX 




;SWAP REGISTERS 


0001 2100F7 


00110 


LD 


HL,0F700H 


;LOAD WITH START ADDRESS 


0004 0601 


00120 


LD 


B,l 


;USE DRIVE NUMBER 1 


0006 0E00 


00130 


LD 


C,0 


;GET ENTIRE DIRECTORY 


0008 CD9044 


00140 


CALL 


4490H 


;CALL $RAMDIR 


000B D9 


00150 


EXX 




;SWAP REGISTERS BACK 


000C C9 


00160 


RET 




rBACK TO BASIC 


0000 


00170 


END 






00000 TOTAL ERRORS 









Program Listing 2. INDEX 



100 'MODEL III DISK INDEXER 

110 'BY JACK R. SMITH KSZOA 

120 'VERSION 1.0 APRIL 11,1982 

125 'NO NEED TO SET MEM SIZE 

130 POKE 16562, &HF6 : POKE 16561, &HFF: 



Program continued 
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'SETS MEMSIZE 
135 'IF 32K POKE 16562, &HB7 : POKE 16561, SHF8 
140 CLEAR 22000 

: ' (48K) IF 32K CLEAR 12000 
150 DIM A$(1200) : 'A? HOLDS PROGRAM NAMES 

160 CLS 

170 PRINT@512,""; iINPUT "ENTER DISK ID NUMBER ";ID 
180 IF ID<0 OR ID>99 THEM GOTO 160 
190 IF ID=0 THEN GOTO 4000 

200 ID$=STR$(ID) : 'CONVERT ID NO. TO STRING 

210 PRINT@ 512, STRING? (60,32) 

220 PRIfcma512,"IS DISK NUMBER" ID? ;iINPUT " MOUNTED ON DRIVE U 
\-Y? 

230 IF LEFTS (Y$,1)<>"Y" THEN GOTO 210 
240 ' 

250 DEFUSR0=&HFF00 
255 ' IF 32K THEN DEFUSR0=&HBF00 
260 DATA 217,33,0,247,6,1,14,0,205,144,66,217,201 
270 'LINE 260 FOR 48K IF 32K CHANGE TO 
280 'DATA 217,33,248,183,6,1.14,0,205,144,66,217,201 
290 FOR X=0 TO 12 : ' POKE INTO HIGH MEMORY 

300 READ P 

310 POKE (&HFF00+X),P :'CHANGE TO &HBF00 IF 32K 

320 NEXT X 

3 30 RESTORE : ' FOR NEXT DISK 

340 J=USR0(0) : 'LOAD DIRECTORY INTO MEMORY 

350 ' 

500 ' READ DIRECTORY INFORMATION FROM MEMORY AND PUT INTO A$ ( ) 
505 PRINT@512,STRING$(60,32) 
510 M=0 : 'POSITION COUNTER 

520 MSM4 : 'CHARACTER COUNTER 

530 A$=CHR$(PEEK(&HF700+NN) ) : 'LOOK AT DIRECTORY ONE CHR AT A 

TIME 
535 ' IF 32K THEN PEEK( &HB7F8+NN) 



'CLEAN OUT NONPRINT CHRS. 

'DITTO 

'ADVANCE COUNTER 

'END OF DIRECTORY MARKED BY 



540 IF A$<"l" THEN A$="" 

550 IF A$>"Z" THEN A$="" 

560 NN=NN+1 

570 IF A$="+" THEN GOTO 1000 

580 IF A$=":" THEN GOSUB 1200 : GOTO 520 : 'END OF RECORD 

590 B$=B$+A$ 

600 PRINT@512,B$ 

610 GOTO 530 : READY FOR NEXT CHARACTER 

1000 CLS 

1010 PRINT@512,"LOAD NEXT DISK INTO DRIVE #1," 

1020 PRINT^576, "ENTER DISK ID NUMBER OR TO HARDCOPY SORTED LIS 

T"; :INPUTID 

1030 GOTO 180 

1200 CLS 

1210 'PUT RECORD INTO A? ( ) 

1220 A$(K)=B$+ ":" + ID$ :' RECORD FORMAT FILENAM/EXT :ID 

1230 K=K+1 

1235 ' TRSDOS HAS TWO LENGTHS — 21 IF NO /EXT AND 22 IF USE /EX 

T 

1240 IF INSTR(B$, "/")=0 THEN M=M*2L ELSE M=M+22 

1250 B$="" :' READY FOR NEXT RECORD 

1260 PRINT@512,STRING$(60,32) 

1270 RETURN 

4000 CLS 

4010 'PRINT AND SORT SECTION 

4020 'WRITTEN FOR EPSON MX-100 PRINTER 
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4030 LPRINT TAB(44) CHR$(14) CHR$(155) "E" "MASTER DISK INDEX LI 

ST" CHR$(18) CHR$(155) "F" : "DOUBLE WIDE DOUBLE STRIKE HEADER 

4040 LPRINT STRINGS (2,10) 

4050 LPRINT "DATE PREPARED: "LEFT? (TIME$ , 8 ) 

4060 LPRINT STRINGS (2, 10) 

4070 LPRINT CHR$(155) "N" :'AUTO PAGE SKIP WITH EPSON 

4080 N%=K+1 

4090 'USE TRSDOS MACHINE SORT ROUTINE 

4095 CLS: PRINT@512, "SORTING — READY PRINTER" 

4100 CMD "O",N%,A$(0) 

4110 ' 

4120 K4=INT(K/4)+l : 'FOR FOUR COLUMN ACROSS 

4130 FOR L=l TO K4 

4140 SP=33 : ' 132 COLLTOJ PRINTER 

4150 LPRINT A$(L) TAB(SP) A?<L+K4) TAB(2*SP) A$ (L+2*K4) TAB{3*SP 

) A$(L+3*K4) 

4160 NEXT L 

4170 LPRINT CHR$( 12) :'FORMFEED 

4190 END 
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18 

Short Form 
Directory 

by Salvatore Yorks System Requirements: 

Model ill 
TRSDOS 

One disk drive 
Editor/assembler 



I've developed a short machine-language program, D/CMD, that uses a 
simple command to put the BASIC directory on the screen after the 
TRSDOS READY prompt. This saves you time and frustration when you 
can't remember how the program name was abbreviated. I keep a copy 
on every disk I own, usually as an invisible file that is transparent to 
other users, and cannot be killed accidentally. You can use this program 
on all existing versions of DOS, 1.1, 1.2, and 1.3. 

TRSDOS uses a buffer located at 4225H for all DOS commands. It 
stops reading a program name when it encounters a space. To use 
D/CMD, type D, press the space bar, and type 0, 1 , 2, or 3. If you call for a 
directory by pressing D without entering a number, drive is the default 
drive. The resulting display is the same directory you get when you use 
the CMD"D:#" command in BASIC. It lists all the program names on 
any disk together, without scrolling off the screen. 

D/CMD is a complete, stand-alone program. It occupies the same area 
as DEBUG, 5200H-5272H, so no BASIC program resident in memory is 
disturbed when the directory is called. The code is completely relocat- 
able; you can move it by changing the ORG statement in line 2200 of 
the assembly listing. 

Once you've entered the program using an editor/assembler, you 
can create a build file, using the BUILD command in TRSDOS. Type 
BUILD SB and press ENTER. After each prompt, type the following 
lines: 
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COPYD/CMD:0:1 
ATTRIB D/CMD: 1 (I) 
D:l 

Now press the BREAK key and you're ready to update all your disks. 

•Place the disk with the BUILD file in drive 0. 

•Place the disk to receive D/CMD in drive 1. 

•Type DO SD and press ENTER. 

•Repeat as often as necessary to convert all disks. 

•You might want to set the AUTO function to DO SD and simply press 

RESET after exchanging disks. 

This copies the program from drive to drive 1, then changes the 
file's visibility so that no one will mistakenly delete it. Then it runs the 
program from drive 1, to make sure it's there, and has been rendered in- 
visible. Once converted, you can call up a usable directory that won't 
run off the screen. If you want or need the full file information, you 
have to run the fill DIR system function. 



Program Listing. Directory Routine 







00200 


* * * 


* * * 


******* 


* * * 


************ 






00300 


» 














00400 


* 




MODEL III 


- SHORT * 






00500 


* 




DIRECTORY 


ROUTINE * 






00600 


* 




REVISED 








00700 


* 




07/04/82 








30800 


* 














00900 


* 














01000 


* 














01100 


* 














01230 


* * * 


* * * 


******* 


* * * 


************ 






01300 






DEFINED ADDRESSES 


01C9 




01400 C 


!LS 


EQU 


01C9H 




; CLEAR SCREEN . 


4271 




01500 L 


JRIVE 


EQU 


4271H 




; POINTER TO DRIVE SELECTED FOR DIRECTORY 


4419 




01600 I 


SPDIR 


EQU 


441 9H 




[DIRECTORY DISPLAY - BASIC FORMAT . 


4225 




01700 1 


XT 


EQU 


4225(1 




;DOS TEXT BUFFER . 


4290 




01800 f 


iAMDIR 


ECU 


4290H 




SELECTIVE DIR ENTRY . 


00 J 3 




01900 V 


TJCHAR 


EGO 


0033H 




[DISPLAY A SINGLE CHARACTER . 


021 B 




02000 V 


TJLINE 


EQU 


021BH 




[DISPLAY AN EOTIRE MESSAGE . 


4210 




02100 E 


PECL 


EQU 


42101! 




;SPEC1AL CHARACTER SWITCH REGISTER. 


5200 




02200 




ORG 


5200H 




,'DOS "DEBUG" PROGRAM AREA . 






02300 ; 






PFCGRAM 


BEGINS HERE 


5200 


CDC901 


02400 S 


TART 


CALL 


CLS 




■CLEAR THE SCREEN ( 


5203 


3E28 


02500 




LD 


A, 40 




■SETS SPECIAL CHARACTERS 


5205 


321042 


02600 




LD 


(SPECL),A 




■TURNS OFF KANA CHARACTERS! 


5208 


1600 


02700 




LT) 


D,0 




■0'S TO FILL MEMORY . 


5 20 A 


217042 


02800 




LD 


HL, DRIVE- 1 




■START HERE - CLEARS DRIVE POINTER . 


520D 


010500 


02900 




LD 


BC,5 




FILL 5 BYTES . 


5210 


CD7B52 


03000 




CALL 


FILL 




DO IT TO IT L 


5213 


010A00 


03100 




LD 


ac,i0 




FILL 10 BYTES . 


5216 


21C352 


03200 




LD 


HL.FREE 




START HERE . 


5219 


CD7B52 


03300 




CALL 


FILL 




DO IT TO IT AGAIN 1 






03400 ; 






DISPLAY BASIC 


FORM) 


VT DIRECTORY 


521C 


3A2742 


03500 




LD 


A, (TXT+2) 




GET DRIVE t FROM EOS COMMAND BUFFER . 


521F FE31 


03600 




CP 


■1' 




IS IT A "1" ? 


5221 


280A 


03700 




JR 


Z,EXE 




OK DO 1TI 


5223 


FE32 


03800 




CP 


2' 




IS IT A "2" ? 


5225 


2806 


03900 




JR 


Z,EXE 




OK DO ITI 


5227 


FE33 


04000 




CP 


'3' 




IS IT A "3 M ? 


5229 


2802 


04100 




JR 


Z.EXE 




OK DO ITI 


522B 


3E30 


04200 




LD 


A, '0' 




IF IT ISN'T 1,2 OR 3 IT MUST BE 01 


522D 


327142 


04300 E 


KE 


LD 


(DRIVE), A 




POINT TO TARGET DRIVE . 


5230 


CD1944 


04400 




CALL 


DSPDIR 




DISPLAY THE TARGETED DIRECTORY . 



Program continued 



THE REST OF 80 / 135 







04500 






GET FREE SPACE INFORMATION 


5233 


21C352 


04600 




LD 


HL.FREE ; 


POINT TO FREE SPACE BUFFER . 


5236 


0EFF 


04700 




LD 


C255 


ASK FOR FREE SPftCE INFO . 


523B 


3A7142 


04800 




LD 


A. (DRIVE) : 


GET DRIVE NUMBER . 


523B 


D630 


04900 




SUB 


30H 


CONVERT TO TRUE HEX VALUE 1 


523D 47 


05000 




LD 


B,A ; 


GET HEX # INTO B . 


523E 


CD9042 


05100 
05200 




CALL 


RAMDIR r 
DISPLAY DIRECTORY 


GET FREE SPACE INFO . 
TITLE 


5241 


218352 


05300 




LD 


HL.MSGl ; 


POINT TO FREE SPACE MESSAGE . 


5244 


CD1H02 


05400 




CALL 


VDLINE ; 


DISPLAY MESSAGE . 






05500 




CONVERT FREE SPACE INFO FROM HEX TO DECIMAL 


5247 


2ACS52 


05600 




LD 


HL,(FHEE+2) 


GET ASCII INTO HL . 


524A DD216E52 05700 




LD 


IX, DECTBL 


POINTER . 


524E AF 


05800 


PDEC1 


XOR 


A 


CLEAR A . 


524F 


DD4601 


05900 




LD 


B,(IX+1) 


BC HOLDS THE 


5252 


DD4E00 


06000 




LD 


C,(IX) 


DECIMAL DIGIT . 


5255 


B7 


06100 




OR 


A 


CLEAR CARRY . 


5256 


ED42 


06200 


PDEC2 


SBC 


HL.BC 


SUBTRACT BC . 


5258 


3803 


06300 




JR 


CPDEC3 


DIGIT DONE . 


5 25 A 


3C 


06400 




INC 


A 


ELSE INC A . 


525B 


18F9 


06500 




JR 


PDEC2 


CONTINUE . 


525D 09 


06600 


PDEC3 


ADD 


HL,BC 


ADD BACK . 


525E 


06 30 


06700 




ADD 


A,30H 


"0" TO "9" . 






06800 




DISPLAY DECIMAL FREE SPACE INFO 


5260 


CD3300 


06900 




CALL 


VDCHAR 


DISPLAY IT . 


5263 


79 


07000 




LD 


A,C 


IF Ol 


5264 


FE01 


07100 




CP 


1 


THEN DONE . 


5266 


280C 


07200 




JR 


Z,DSP 


DISPLAY REST OF MESSAGE WHEN DEC. CONV. IS 


5268 


D023 


07300 




INC 


IX 


DONE TWICE BECAUSE 


5 26A 


DD23 


07400 




IMC 


IX 


THE TABLE IS STORED IN TWO BYTE WORDS . 


526C 


1BE0 


07500 




JR 


PDEC1 


CONTINUE CONVERSION . 


526E 


6400 


07600 


DECTBL 


DEFW 


100 


TABLE USED FOR DECIMAL 


5270 


0A00 


07700 




DEFW 


10 


CONVERSION . 


5272 


0100 


07800 




DEFW 


1 








07900 




DISPLAY FREE SPACE Kl 


ISSAGE 


5274 


21AB52 


08000 


dsp 


LD 


HL,MSG2 


POINT TO NEXT MESSAGE . 


5277 


CD1B02 


08100 




CALL 


VDLINE 


DISPLAY IT 1 






08200 




RETURN TO DISK CALLER Wf 


JEN DONE 


527A C9 


08300 




RET 




RETURN - DONE 






08400 






FILL MEMORY WITH 


SPECIFIC BYTE 


527B 


72 


08500 


FILL 


LD 


(HL),D 


STORE THE BYTE TO USE . 


527C 


23 


08600 




INC 


KL 


POINT TO NEXT BYTE . 


527D 0B 


08700 




DEC 


BC 


ADJUST THE COUNT . 


527E 


78 


08800 




LD 


A,B 


MSB OF COUNT . 


527F 


Bl 


08900 




OR 


C 


MERGE LSB . 


5280 


20F9 


09000 




JR 


NZ.FIU. 


•CONTINUE 'TILL DCNE . 


5282 


C9 


09100 
09200 




RET 


SCREEN KESSAG 


•RETURN WHEN DCNE . 
! AREA 


5283 


15 


09300 


MSG1 


DEFB 


21 


•SWITCH TO SPECIAL CHARACTERS 


5284 


EE 


09400 




DEFB 


236 


■FAT "X" 


5265 


EE 


09500 




DEFB 


238 


■FAT "X" 


5266 


EE 


09600 




DEFB 


238 


■FAT "X" 


5287 


20 


09700 




DEFM 


' Model III Shor 


t Directory ' 


52A2 


8F 


09800 




DEFB 


143 


; SHIRT CUFF FOR POINTING HAND 


52A3 


F4 


09900 




DEFB 


244 


; POINTING 


52M 


F5 


10000 




DEFB 


245 


; HAND AND 


52A5 


F6 


10100 




DEFB 


246 


; FINGER 


52*6 


20 


10200 




DEFB 


20H 


;SPACE . 


52A7 


03 


10300 




DEFB 


03H 


;END-OF-MESSAGE TERMINATOR - NO C.R. 


52AB 


20 


10400 MSG2 


DEFM 


' Free Gran(s) ' 




52B6 


EE 


10500 




DEFB 


238 


;FAT "X" FOR BOARDER 


52B7 


EE 


10600 




DEFB 


23S 


; FOR 


52HB EE 


10700 




DEFB 


238 


MESSAGE . 


52B9 


20 


10800 




DEFW 


' SLY ' 


; I ALWAYS SIGN MY WORK 1 


52DE 


EE 


10900 




DEFB 


238 


;FAT "X" FOR 


52HF 


EE 


11000 




DEFB 


238 


BORDER . 


52C0 


EE 


11100 




DEFB 


236 


; AT END OF LINE 


52C1 


15 


11200 




DEFB 


21 


; SWITCH BACK TO SPACE COMPRESSION CODES 


52C2 


0D 


11300 




DEFB 


0m 


; END-OP-MESSAGE TERMINATOR - WITH C.R. 






11400 




STORAGE BUFFER FOR FREE 


SPACE INFORMATION 


et»A 




11500 FREE 


DEFS 


10 


; STORAGE AREA FOR FREE SPACE INFORMATION . 


5200 




11600 




END 


START 


; PROGRAM ENDS HERE i 



00000 TOTAL ERRORS 
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19 

ONESTEP at a 
Time in BASIC 

System Requirements: 

by Alan Sehmer Model l 



32KRAM 

Disk BASIC 

One dish drive 

TRSDOS 



Writing a BASIC program is easy; the hard part is making it work. 
The best way to debug is to run the program one command at a 
time. ONESTEP lets you run a BASIC program one command at a time, 
while displaying the current line number and up to 26 user-defined vari- 
ables. The program may be run at close to normal speed, or at a very 
slow speed. 

Once ONESTEP is entered and loaded, load disk BASIC. Answer the 
Memory Size? question with 48128 to keep BASIC from overwriting 
ONESTEP. Load the program you want to debug. To turn ONESTEP 
on, add this line to the target program: DEFUSR = (&HBC00): 
* = USR 0(0) , where the asterisk is a dummy variable. The line can be put 
anywhere. If you have a long program that runs fine until the last few 
lines, ONESTEP need not be activated until just before the problem 
lines. 

ONESTEP understands six commands. 
SHIFT S Go into the one-step mode. Print the BASIC line number and 

the variables requested. 
ENTER Execute the next command. Display line number and 

variables. 
N Leave the one- step mode. Run program at normal speed. Dis- 

play line numbers in upper right. 
S Leave the one-step mode. Run program at slow speed. Dis- 

play line numbers in upper right. 
C Change the variables to monitor. 
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K Kill ONESTEP. This entirely disconnects ONESTEP. The 

DEFUSR line must be executed to restart it. 
With ONESTEP on, a program can be stopped with the BREAK key 
only in modes N or S. The program can then be edited or restarted with 
CONT, RUN or GOTO. It is unwise to stop a program in the S mode; 
nothing is hurt, but the keyboard is slow to receive input. ONESTEP 
uses the variables QA$-QZ$ to store the names of the variables to be 
printed. Because all variables are destroyed by the EDIT, CLEAR and 
RUN commands, ONESTEP automatically executes a C command if any 
of these commands is used. ONESTEP also executes the C command im- 
mediately after the DEFUSR line. Any type of variable can be used with 
the C command. This includes variables that use other variables, such as 
B$(X) or A(I,J). ONESTEP executes only one command each time EN- 
TER is pressed. You must press ENTER several times to complete a 
multi-statement line. 

How It Works 

ONESTEP is a machine-language program written for a 32K Model 1 
with disk and TRSDOS. When ONESTEP is first called, it ties itself to the 
front of the BASIC keyboard driver. Every time BASIC calls the key- 
board (after each command), it calls ONESTEP instead. ONESTEP tests 
a set of flags and variables to see what needs to be done, does it, and 
jumps to the real keyboard driver. 

In all but three cases this causes no problems. However, the INPUT, 
LINEINPUT and INKEYS commands must scan the keyboard, which 
requires calling the keyboard driver and puts you back into ONESTEP. 
INPUT and LINEINPUT do a repetitive keyboard scan, so the program 
would never get past them. INKEY$ does a one-shot scan, so it always 
returns a null string. Patching sections of code— INSET into the INPUT 
routine, LINSET into the LINEINPUT routine, and INRES into the main 
interpreter— solves the problem with INPUT and LINEINPUT. No sim- 
ple fix works for INKEY$. 

One way around the INKEY$ problem is to temporarily replace the 
INKEYS function with a LET statement, making the INKEYS variable 
whatever you would have entered. Because ONESTEP uses QA$-QZ$ 
to store variable names, they must not be used in the target program. To 
change ONESTEP's variable names, change line 2020. To adjust the 
slow speed, change line 390. 

ONESTEP commands are straightforward, but the display can be con- 
fusing. A PRINT® command spreads ONESTEP output all over the 
screen. This is intentional. If lines were set aside for ONESTEP, program 
output could easily be overwritten. It is best to have ONESTEP output 
and program output on separate devices. Insert the following lines if you 
have a printer: 
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552 


LD 


HL,058DH 


554 


LD 


(401EH),HL 


1712 


LD 


HL,0458H 


1714 


LD 


(401EH),HL 


1742 


LD 


HL,0458H 


1744 


LD 


(401EH(,HL 



The last problem involves monitoring array variables and is best il- 
lustrated by the following example: 

10 DEFUSR = |&HBCOO) : 0=USR 0(0) : DIM Y|50| 

20 FOR X = 0TO50 

30 Y(X) = X 

40 NEXT X 
If ONESTEP is told to monitor Y(X), a subscript-out-of-range error oc- 
curs at line 40. In a FOR-NEXT loop the NEXT command increments 
the FOR variables and tests it against the TO argument. If the TO argu- 
ment has been satisfied, program flow falls through the FOR-NEXT 
loop. However, the FOR variable is now greater than the TO argument 
(in the example X = 51). At line 40 ONESTEP tries to print the variable 
Y|51), but Y is only dimensioned to 50; hence, the error. 

ONESTEP is a good aid in teaching as well as in debugging. It is 
hard for people to catch the ins and outs of programming when one 
moment there's a program on the screen and the next the computer is 
printing answers. ONESTEP lets you see step-by-step what the com- 
puter is doing. 







Program Listing 






00100 ; 


ONESTEP BY AL SEW1ER 


08/31/81 




00110 ; 








BC00 


00120 


ORG 


0BC00H 


;BC00 = 48128 


BC00 21B2BD 


00130 


LD 


HL,INRES 


;CN RETURN FRCM "INPUT" 


BC03 22C541 


00140 


LD 


(41C5H),HL 


;CO»ttND PT. TO INRES 


BC0€ 21A5BD 


00150 


LD 


HL,LINSET 


;LOAD LINSET JUMP INTO 


BC09 22A441 


00160 


LD 


(41A4H),HL 


; "LINEINPUT" CCW1RND 


BC0C 3EC3 


00170 


LD 


A,0C3H 


;LOAD INSET JUMP INTO 


BC0E 32BB57 


00180 


LD 


(57B8H),A 


; "INPUT" COM4AND 


BC11 2195BD 


00190 


LD 


HL, INSET 




BC14 22B957 


00200 


LD 


(57B9H),HL 




BC17 2171HE 


00210 


ID 


HL.FLAG 


;INIT FLflG 


BC1A 3630 


00220 


LD 


(HL),30H 


;SIB3LE STEP ON 


BC1C 2123BC 


00230 


LD 


HL, START 


rSET NEW DRIVER 


BC1F 221640 


00240 


ID 


(4016H),HL 




BC22 C9 


00250 


RET 




;RETURN FOR USR CALL 


BC23 2171BE 


00260 START 


LD 


HL.FLAG 


; BASIC ENTRY POINT 


BC26 CB7E 


00270 


BIT 


7,(HL) 


; "INPUT" COMffiND 7 


BC28 C2D843 


00280 


JP 


NZ.43D6H 


rIF YES BACK TO BASIC 


BC2B 2AA240 


00290 


ID 


HL, (40A2H) 




BC2E 222141 


00300 


ID 


(4121H),HL 


;BASIC LINE # TO REG1 


BC31 010A0A 


00310 


ID 


BC.0A0AH 




BC34 213A3C 


00320 


LD 


HL,3C3AH 


;PT. TO SCREEN 


BC37 CD2F13 


00330 


CALL 


132FH 


;T0 ASCII & DISPLAY 
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BC3A 3E20 


00340 


ID 


A.20H 




BC3C 323F3C 


00350 


ID 


(3C3FH),A 




BC3F 217 1BE 


00360 


ID 


HL,FLAG ; 


TEST FOR NORM. OR SLOW 


BC42 CB76 


00370 


BIT 


6,(HL) 




BC44 2808 


00380 


JR 


Z.TEST 




BC46 21EF1F 


00390 


ID 


HL,1FFFH 




BC49 2B 


00400 DELAY 


DEC 


HL 




BC4A 7C 


00410 


ID 


A,H 




BC4B B5 


00420 


OR 


L 




BC4C 20FB 


00430 


JR 


NZ, DELAY 




B04E 2171BE 


00440 TEST 


LD 


HL,FLAG 




BC51 CB66 


00450 


BIT 


4,(HL) 


IS SINGLE SET FLAG SET 


BC53 2011 


00460 


JR 


NZ,MAIN 




BC55 3A0438 


00470 


ID 


A,(3804H) 


IS 'S' KEY PRESSED 


BC58 218038 


00480 


ID 


HL,3880H 


FT. TO 'SHIFT' KEY 


BC5B B6 


00490 


OR 


(HL) 




BC5C FE09 


00500 


CP 


9 


ARE BOTH PRESSED 


BC5E C2D843 


00510 


JP 


NZ,43D8H 


IF NOT BACK TO BASIC 


BC61 2171BE 


00520 


ID 


HL.FLAG 




BC64 CBE6 


00530 


SET 


4,(HL) 


SET SINGLE STEP FLAG 


BC66 21D843 


00540 MAIN 


LD 


HL,43D8H 


RESTORE OLD DRIVER 


B069 221640 


00550 


LD 


(4016H),HL 




BC6C 3E41 


00560 


LD 


A.41H 


DO I NEED TO GET VARS. 


BC6E 323BBE 


00570 


LD 


(BUF1+1),A 


BUF1 - OAS 


BC71 213ABE 


00580 


ID 


HL.BUF1 


PT. TO BUF1 


BC74 CD0D26 


00590 


CALL 


260EH 


WERE IS OA? STORED 


BC77 1A 


00600 


LD 


A,{DE) 


DE PTS. TO LENGTH OF OAS 


BC78 A7 


00610 


AND 


A 


SET OR RESET ZERO FLAG 


BC79 2035 


00620 


JR 


NZ.PRTLNE 


NO NEED, SKIP GETVAR 


BC7B 3A71BE 


00630 GETVAR 


ID 


A, (FUG) 




BC7E E6F0 


00640 


AND 


0F0H 


CLEAR VAR. COUNT 


BC80 3271BE 


00650 


LD 


(FLAG), A 




BC83 CDC901 


00660 


CALL 


01C9H 


CLEAR SCREEN 


BC86 21BFBD 


00670 


ID 


HL.GETMSG 


PT. TO MESSAGE 


BC89 CD6F20 


00680 


CALL 


206FH 


PRINT IT 


BCSC 3A71BE 


00690 


LD 


A, (FLAG) 


GET VAR. COUNT 


B03F E60F 


00700 NEXT 


AND 


0FH 


MASK OUT CONTROL BITS 


BC91 0641 


00710 


ADD 


A.41H 


ADD OFFSET 


BC93 323BBE 


00720 


ID 


(BUF1+1),A 


INSERT INTO BUFFER 


BC96 213ABE 


00730 


LD 


HL.BUF1 


PT. TO INPUT BUFFER 


BC99 CD9457 


00740 


CALL 


5794H 


INPUT VARIABLE 


BC9C 213ABE 


00750 


ID 


HL.BUF1 


WAS INPUT A 'ENTER' 


BC9F CD0D26 


00760 


CALL 


260EH 


WHERE IS QITRY STORED 


BCA2 1A 


00770 


LD 


A, (DE) 


DE PTS. TO ENTRY LENGTH 


BCA3 A7 


00780 


AND 


A 


SET OR RESET ZERO FLAG 


BCA4 CA2CBD 


00790 


JP 


Z.PRTINS 


IF ZERO DONE WITH INPUT 


BCA7 3A71BE 


00800 


LD 


A, (FLAG) 


GET VAR. COUNT 


BCAA 3C 


00810 


INC 


A 




BCAB 3271BE 


00820 


ID 


(FLAG), A 


RESAVE COUNT 


BCAE 18DF 


00830 


JR 


NEXT 


GET NEXT VARIABLE 


BCB0 21P6BD 


00840 PKTLNE 


LD 


HL.LHEMSG 


PT. TO MESSAGE 


BCB3 CD6F20 


00850 


CALL 


206FH 


PRINT IT 


BCB6 2AA240 


00860 


LD 


HL, (40A2H) 


GET BASIC LINE NUMBER 


BCB9 CDAF0F 


00870 


CALL 


0FAEH 


TO ASCII fi. DISPLAY 


BCBC 3A71BE 


00880 


LD 


A, (FLAG) 


GET VAR. COUNT 


BCBF E60F 


00890 


AND 


0EH 




B0C1 FE00 


00900 


CP 





IS COUNT EQUAL TO ZERO 


B0C3 28B6 


00910 


JR 


Z, GETVAR 




B0C5 3E00 


00920 


LD 


A,0 


INIT # OF VARS. PRINTED 


B0C7 3270BE 


00930 


LD 


(TEMP), A 




BOCA 2170BE 


00940 


ID 


HL,TEMP 
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BCCD CD6F20 


00950 


CALL 


206FH 


; START NEW LINE 


BCD0 C641 


00960 MORE 


AID 


A,41H 


;ADD OFFSET 


BCD2 323BBE 


00970 


LD 


(BUF1+1),A 


;PUT IN BUF1 


BCD5 213ABE 


00980 


LD 


HL,BUF1 


;PT. TO BUF1 


BCD8 CD0D26 


00990 


CALL 


260DH 


;VMERE IS VAR. STORED 


BCDB ED536EBE 


01000 


LD 


(BUF3),DE 


; STORE ADDRESS IN BUF3 


BCDF 213EBE 


01010 


LD 


HL,BUF2 


fPT. TO STRING FOR PRINT 


BCE2 3622 


01020 


LD 


(HL),22H 


;ADD " TO BUF2 


BCB4 23 


01030 


INC 


HL 




BCE5 EB 


01040 


EX 


DE,HL 




BCE6 010000 


01050 


LD 


BC,0 


;CLEAR BC FOR LDIR 


BCE9 DD2A6EBE 


01060 


LD 


IX,<BUF3) 


;PT. TO VAR. NAME LENGTH 


BCED DD4E00 


01070 


LD 


C,(lX+0) 


;C=LEMGTH OF NAME 


BCP0 DD6E01 


01080 


LD 


L,(IX+1) 




BCF3 DD6602 


01090 


LD 


H,(IX+2) 


;HL=LOC. OF VARIABLE NAM! 


BCF6 EDB0 


01100 


LDIR 




;M3VE VAR. NAME TO BUF2 


BCF9 EB 


01110 


EX 


DE,HL 




BCF9 36 3D 


01120 


LD 


(HL),3DH 


;ADD = TO BUF2 


BCFB 23 


01130 


INC 


HL 




BCFC 3622 


01140 


LD 


(HL),22H 


;ADD " TO BUF2 


BCPE 23 


01150 


INC 


HL 




BCFF 363B 


01160 


LD 


(HL),3BH 


•ADD ; TO BUF2 


BD01 23 


01170 


INC 


HL 




BD02 EB 


01180 


EX 


DE,HL 




BD03 010000 


01190 


LD 


BC,0 




BE06 DD4E00 


01200 


LD 


C,(lX-«) 




BD09 DD6E01 


01210 


LD 


L,(IX+1) 


rSAME FUNCTION AS ABOVE 


BD0C DD6602 


01220 


LD 


H,(lX+2) 




BD0F EDB0 


01230 


LDIR 






BD11 EB 


01240 


EX 


DE.HL 




BD12 362C 


01250 


LD 


(HL) , 2CH 


rADD , TO BUF2 


BD14 23 


01260 


INC 


HL 




BD15 3600 


01270 


LD 


(HL),0 


;ADD TERMINATOR 


BD17 213EBE 


01280 


LD 


HL.BUF2 


;PT. TO OUTPUT BUFFER 


BD1A CD6F20 


01290 


CALL 


206FH 


r PRINT IT 


BD1D 3A71BE 


01300 


LD 


A, (FLAG) 


;GET VAR. COUNT 


BD20 E60F 


01310 


AMD 


0FH 


;MASK OUT CONTROL BITS 


BD22 2170BE 


01320 


LD 


HL.TEMP 


;PT. TO TEMP 


BD25 34 


01330 


INC 


(HL) 




BD26 BE 


01340 


CP 


(HL) 


:AM I DONE ? 


BD27 3A70BE 


01350 


LD 


A, (TEMP) 




BD2A 20A4 


01360 


JR 


NZ,MORE 




BD2C 3E00 


01370 PRTINS 


LD 


A,0 




BD2E 3270BE 


01380 


LD 


(TEMP), A 




BD31 2170BE 


01390 


LD 


HL.TEMP 




BD34 CD6F20 


01400 


CALL 


206FH 


;START NEW LINE 


BD37 210CBE 


01410 


LD 


HL,INSMSG 


;PT. TO MESSAGE 


BD3A CD6F20 


01420 


CALL 


206FH 


; PRINT IT 


BD3D CD4900 


01430 GETKEY 


CALL 


0049H 


;SCAN KEYBOARD 


BD40 FE4E 


01440 


CP 


4EH 


,-IS IT 'N' 


BD42 2009 


01450 


JR 


NZ,SKEY 




BD44 2171BE 


01460 


LD 


HL,FLAG 


;PT. TO FLAG 


BD47 CBA6 


01470 


RES 


4,(HL) 


;CLEAR SINGLE STEP FLAG 


BD49 CBB6 


01480 


RES 


6, (HL) 


;CLEAR SLOW FLAG 


BD4B 183F 


01490 


JR 


DONE 


;RETUFN TO BASIC 


BD4D FE53 


01500 SKEY 


CP 


53H 


;IS IT 'S' 


BD4F 2009 


01510 


JR 


NZ,CKEY 




BD51 2171BE 


01520 


LD 


HL,FLAG 




BD54 CBA6 


01530 


RES 


4, (HL) 


;CLEAR SIN3LE STEP FLAG 


BD56 CBF6 


01540 


SET 


6, (HL) 


fSET SLOW FLAG 


BD58 1932 


01550 


JR 


DONE 
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BD5A FE43 01560 CKEY 

BD5C CA7BBC 01570 

BD5F FE0D 01580 

BD61 2829 01590 

BD63 FE4B 01600 

BD65 20D6 01610 

BD67 21D843 01620 

BD6A 221640 01630 

BD6D 218657 01640 

BD70 22A441 01650 

BD73 DD21BB57 01660 

BD77 DD3600E5 01670 

BD7B DD3601FE 01680 

BD7F DD360223 01690 

BD63 21305A 01700 

BDB6 22C541 

BD89 C3D843 

BDSC 2123BC 01730 DONE 

BD8F 221640 

BD92 C3D843 

BD95 P5 01760 INSET 

BD96 3A71BE 

BD99 F680 

BD9B 3271BE 

BD9E Fl 

BD9F E5 

BQA0 FE23 

BDA2 C3BB57 

BDA5 F5 01840 LINSET 

BDA6 3A71BE 

BDA9 F680 

BQAB 3271BE 

BDAE Fl 

BDAF C38657 

BDB2 F5 01900 INRES 

BDB3 3A71BE 

BDB6 E67F 

BDB8 3271BE 

BDBB Fl 

BDBC C3305A 

BDBF 22 



01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
00000 TOTAL ERRORS 



BDF5 00 
BDF6 22 
BE0B 00 
BE0C 22 
BE39 00 
BE3A 51 
BE3D 00 
0030 

BE6E 0000 
BE70 00 
BE71 00 



GETMSG 

LNEMSG 

INSMSG 

BUF1 

BUF2 
BUF3 

TEMP 
FLAG 



CP 

JP 

CP 

JR 

CP 

JR 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

JP 

LD 

LD 

JP 

PUSH 

LD 

OR 

LD 

POP 

PUSH 

CP 

JP 

PUSH 

LD 

OR 

LD 

POP 

JP 

PUSH 

LD 

AND 

LD 

POP 

JP 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFS 

DEFW 

DEFB 

DEFB 

END 



43H 

Z.GETVAR 
0DH 
Z.DONE 
4BH 

NZ,GETKEY 
HL.43D8H 
{4016H),HL 
HL,5786H 
(41A4H) t HL 
IX,57B8H 
(IX+0),0E5H 
(1X4-1 ),0FEH 
(IX+2),23H 
HL,5A30K 
(41C5H),HL 
43D8H 
HL, START 
(4016H),HL 
43D8H 
AF 

A, (FLAG) 
80H 

(FLAG), A 
AF 
HL 
23H 
57BBH 
AF 

A, (FLAG) 
80H 

(FLAG), A 
AF 

5786H 
AF 

A, (FLAG) 
7FH 

(FLAG), A 
AF 
5A30H 



;IS IT 
ris it 

JIS IT 



■c 

'ENTER' 
'K' 



; RESTORE OLD DRIVER 

;REM3VE LINSET JUMP FROM 
;THE "LINEItJPUT" COMMAND 
;REMOVE INSET JUMP FROM 
;THE "INPUT" COMMAND 



;REMOVE INRES JUMP 

;BACK TO BASIC 
;SET NEW DRIVER 

;BACK TO BASIC 
rSAVE REGS. 

fSET "INPUT" CALLED FROM 
; TARGET PROGRAM FLAG 
; RESTORE REGS. 



JP TO DCS EXIT 

SAVE REGS. 

SET "LINEINPUT" FLAG 



.-RESTORE REGS. 

;JP. TO DOS EXIT 

;SAVE REGS. 

r RESET "INPUT" BIT IN 

;FLAG REG. (BIT 7) 



; RESTORE REGS. 
?JP TO DOS EXIT 

1 "ENTER VARIABLES TO MONITOR, PRESS ENTER TO END INPUT" ' 
00 

'"WDRKING ON LINE # "; ' 
00 

' " <N>ORMAL 
00 

*Q ?' 
00 
30H 
0000 
00 
00 



<S>LCW <C>HANGE <ENTER> <K>ILL" 
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20 

Renumber Your 
BASIC Program 

by Gary L, Simonds 

System Requirements: 

Model I or III 

16K RAM 

level II BASIC 



Have you ever had to retype part of your BASIC program because you 
didn't leave enough room between line numbers to make correc- 
tions? This renumber utility program is the answer. It also adds a profes- 
sional look to your programs. 

The renumber program lets you renumber a previously written BASIC 
program. You may specify any starting line (0-65535) and the increment 
between program lines (1-32767). The renumber program also searches 
your program for a reference to an existing line number and adjusts that 
reference accordingly. In Figure 1, the number 17 after the THEN com- 
mand in line 10 is a reference to line 17. 

For an example of the actual operations performed by the renumber 
program, see Figures 1 and 2. Figure 1 represents an ordinary BASIC 
program. Figure 2 shows the same program renumbered with a starting 
line number of 10 and an increment of 5. Not only are the lines renum- 
bered, but the references to line numbers within a program line have 
also been updated to reflect the correct line numbers. 

The renumber program is written in assembly language. The BASIC 
program in Program Listing 1 POKEs the machine-language code for 
the renumber program into memory. The actual renumber program is 
contained in the data statements of Program Listing 1 . Program Listing 
2 contains the assembly code for the renumber program, for those who 
prefer to enter the renumber program using an editor/assembler. 
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5 


CLS 






10 


IF X = 3 THEN 17 ELSE X = 


11 


GOTO 25 




17 


X=l 






25 


ON X GOTO 50,51,100 


50 


PRINT 


X=l" 


: GOTO 10 


51 


PRINT 


'X = 2" 


: GOTO 10 


100 


PRINT 


X = 3" 


: GOTO 10 



■ X+l 



Figure 1. A typical BASIC program 



The BASIC Program 

Here is how to use Program Listing 1. 
•Set the memory size to 31999. The renumber program occupies the 
memory addresses from 32000 to 32698. Setting the memory size pre- 
vents BASIC from using memory that contains the renumber program. 
•Load Program Listing 1 and run it. If you have made any mistakes 
in typing, the program stops and prompts you to check for errors. A 
checksum is performed on the data statements. If the resulting 
checksum is not as expected, an error is indicated and you must re- 
vise the data statements to match the listing. 

•Type NEW and load the program you wish to renumber. Do not run it. 
•Enter the SYSTEM mode by typing SYSTEM, and press ENTER. The *? 
system prompt should appear. 

•Type /32093 and press ENTER. This tells the computer to start execu- 
tion of the machine-language program starting at memory location 
32093. The renumber program is now in control. The screen should 
display the title of the renumber program and the statement ENTER 
STARTING LINE NUMBER. 

•Enter the starting line number desired (0-65535), and press ENTER. 
•Enter the increment desired between lines (1-32767). 

The renumber program now renumbers your program, then returns 
to BASIC so you can list or save your program. 



X + l 



10 


CLS 






15 


IFX = 3THEN25 ELSE X = 


20 


GOTO 


JO 




25 


X=l 






30 


ON X GOTO 35,40,45 


35 


PRINT 


'X= 1" 


: GOTO 15 


40 


PRINT 


'X = 2" 


: GOTO 15 


45 


PRINT 


'X = 3" 


: GOTO 15 



Figure 2. The program in Figure 1 renumbered with a starting line number of 10 and an in- 
crement between lines of 5 
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The Assembly-Language Program 

To use the assembly-language program, set the memory size to 31999. 
Load Program Listing 2. You must load the program in the SYSTEM 
mode since it is a machine-language program. Do not run it. Return to 
BASIC, and continue from the third instruction for Program Listing 1 
(type NEW, etc.) 

Limitations and Bugs 

The renumber program only changes references to other line numbers 
if the reference is preceded by a few special command tokens, including 
GOTO, GOSUB, ON-GOTO, THEN, ON-GOSUB, and ELSE. If the ref- 
erence is not preceded by one of these tokens, it is not recognized by the 
renumber program as a reference. 

The program to be renumbered should not contain lines with packed 
machine language. The renumber program can't tell whether the start- 
ing line number and the increment will overshoot the maximum line 
number of 65535. Be careful to choose a starting line number and incre- 
ment that will not generate line numbers greater than 65535. 

A bug shows up the first time you try to save the program that has just 
been renumbered. An OM (out of memory] error appears. The second 
time you try to save the program, it works without error. Almost all com- 
mands, except the LIST command, cause an OM error if they are the first 
command executed after the renumber program has been used. Since 
CSAVE turns on the tape recorder and wastes tape before the OM error 
occurs, I usually execute a CLEAR command first. The CLEAR com- 
mand causes the OM error and doesn't waste any tape or damage the 
program. 

The renumber program occupies the memory space 32000 to 32698, 
which is a little less than 1000 bytes of code, or IK. The actual starting 
address of the program is 32093. There is approximately 15K of memory 
left for the BASIC program that is to be renumbered. The program exe- 
cution time varies with the size of the BASIC program to be renumbered 
and the number of references in it. 

How It Works 

To understand how the renumber program works, you must under- 
stand that each BASIC program line contains a pointer to the next pro- 
gram line, its own line number, the instructions themselves, and an end- 
of-line indicator (00). 

Each BASIC command is stored in memory as a token, not as ASCII 
characters. For instance, a token of 141 represents a GOTO statement. 
This saves memory space and makes decoding of the instructions easier. 
The renumber program searches for the tokens shown in Figure 3. 
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Command Token 

GOTO 141 

GOSUB 145 

THEN 202 

ELSE 149 

ON. . .GOTO, ON. . .GOSUB 161 

Figure 3. BASIC commands and their tokens 

When a token is found, the number following it is a reference. The new 
reference is then calculated and inserted. 

Replacing a reference raises a few possible problems. If the new refer- 
ence number has more digits than the old reference number, room must 
be made to accommodate the extra digits. This is done by shifting the re- 
mainder of the program higher in memory by the appropriate number of 
digits. You must also go back and update the pointer of each program 
line to the following program line. If there are fewer characters in the 
new reference number, you compress the remaining program lines by 
the appropriate number of digits. When all the references have been up- 
dated, you must update each program line number. 



Program Listing 1 

REM RENUMBER (USING BASIC TO POKE IT IN MEMORY) 

BY GARY L. SIMCNDS 

1 REM LIME 10 SETS UP VARIABLES 

2 REM LINE 20 READS DATA, ADDS CHECKSUM, POKES DATA INTO MEMORY 

3 REM LINES 40 TO 100 CHECK CHECKSUM FOR ERRORS 

4 REM LINES 120-520 DATA STATEMENTS 

5 REM LINE 530 PRINTS OUT ERROR IP ANY EXIST 
10 CLStDEFINT A,B,C,E,I:DEFSNG S 

20 PORI-32000 TO 32698: READ A :S=S+A: POKE I, A 

30 C=S 

40 IF 1=32098 THEM S-0«IF C<>6826 THEN B»120!E-160jGOSUB 530 

50 IF 1*32198 THEN S=0:IF ColllBl THEN B=170:E=220:GOSUB 530 

60 IF 1=32299 THEN S«0:IF C<>11860 THEN B-230sE*280« GOSUB 530 

70 IF 1=32400 THEN S-0:IF CO12012 THEN B=290:E>=340: GOSUB 530 

80 IF 1=32499 THEN S~0:IF C<>11861 THEN B=350:E=400j GOSUB 530 

90 IF 1=32597 THEN 9»0:IF C<>12235 THEN B=410:E-460: GOSUB 530 

100 IF 1=32698 THEN S=0:IF C<>8876 THEN B=470:E=520: GOSUB 530 

110 NEXT I:END 

120 DATA 82,69,78,85,77,66,69,82,32,66,89,32,71,65,82,89,32,76,4 

6,32 

130 DATA 83,73,77,79,78,68,83,13,54,45,50,53,45,56,49,32,82,69,8 

6,73 

140 DATA 83,73,79,78,32,48,46,48,13,69,78,84,69,82,32,83,84,65,8 

2,84 

150 DATA 73,78,71,32,76,73,78,69,32,78,85,77,66,69,82,13,69,78,8 

4,69 

160 DATA 82,32,73,78,67,82,69,77,69,78,84,13,225,205,201,1,33,0, 

125 
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170 DATA 205,212,125,33,28,125,205,212,125,62,13,205,51,0,33,49, 

125 

180 DATA 205,166,125,34,153,127,33,76,125,205,166,125,125,180,32 

,2 

190 DATA 46,1,34,155,127,124,254,128,48,207,42,164,64,34,157,127 

,205 

200 DATA 228,125,205,109,127,42,249,64,34,251,64,34,253,64,195,2 

5 

210 DATA 26,205,212,125,6,5,33,177,127,205,64,0,33,176,127,215,4 

8 

220 DATA 165,33,177,127,205,108,14,58,175,64,254,2,40,12,254,4,3 

2 

230 DATA 148,58,36,65,205,251,10,235,201,42,33,65,201,126,35,254 

,13 

240 DATA 202,224,125,205,51,0,24,244,205,51,0,201,34,185,127,94, 

35 

250 DATA 86,35,237,83,161,127,94,35,86,237,83,163,127,35,126,167 

40 
260 DATA 22,254,141,40,39,254,145,40,35,254,149,40,31,254,202,40 
,27 

270 DATA 254,161,40,42,24,229,35,126,167,32,7,35,126,167,32,1,20 
1 

280 DATA 43,237,91,161,127,223,32,211,24,190,215,40,232,48,204,2 
29 

290 DATA 205,90,30,225,237,83,165,127,205,94,126,24,190,215,40,2 
13 

300 DATA 254,141,40,4,254,145,32,245,215,40,202,48,14,229,205,90 
,30 

310 DATA 225,237,83,165,127,205,94,126,24,237,254,44,194,247,125 
,24 

320 DATA 230,34,159,127,1,0,0,42,157,127,94,35,86,213,123,178,20 
2 

330 DATA 63,127,35,94,35,86,42,165,127,223,40,4,225,3,24,233,209 
,17 

340 DATA 0,0,121,176,40,4,42,155,127,235,42,153,127,25,121,176,4 


350 DATA 5,11,121,176,32,246,34,169,127,34,33,65,33,171,127,1,7, 
7 

360 DATA 205,47,19,42,159,127,205,68,127,121,50,167,127,205,76,1 
27 

370 DATA 121,50,168,127,58,167,127,145,40,51,242,12,127,245,167, 
42 

380 DATA 249,64,229,237,75,159,127,237,66,229,193,225,229,209,19 
,237 

390 DATA 184,42,249,64,35,34,249,64,42,161,127,35,34,161,127,235 
,42 

400 DATA 185,127,115,35,114,205,252,26,241,60,32,208,58,168,127, 
79 

410 DATA 6,0,33,171,127,237,91,159,127,237,176,58,168,127,42,159 
,127 

420 DATA 133,111,62,0,140,103,201,245,167,42,249,64,237,75,159,1 
27 

430 DATA 237,66,229,193,42,159,127,229,209,35,237,176,42,249,64, 
43 

440 DATA 34,249,64,42,161,127,43,34,161,127,235,42,185,127,115,3 
5 

450 DATA 114,205,252,26,241,61,32,207,24,177,209,42,159,127,201, 
14 

460 DATA 0,43,215,208,12,24,251,14,0,33,171,127,43,215,208,254,4 
8 

470 DATA 40,5,12,215,208,24,251,229,197,213,1,5,0,229,209,35,237 
,176 

Program continued 

THE REST OF 80 / 147 



480 DATA 209,193,225,24,228,42,155,127,235,42,153,127,167,237,82 
,34 

490 DATA 183,127,42,157,127,94,35,86,123,178,200,213,35,229,42,1 
55 

500 DATA 127,235,42,183,127,25,34,183,127,235,225,115,35,114,225 

,24 

510 DATA 228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0 

520 DATA 0,0,0,0,0,0,0 

530 PRINT"CHECK DATA LINES ";B;" TO ";E?". THERE IS AN ERROR. ":R 

ETURN 









Program Listing 2 


7D00 


00010 




ORG 


7D00H 


7D00 52 


00020 TEXT1 


DEEM 


'RENUMBER BY GARY L. SIMONDS' 


7D1B 0D 


00030 




DEFB 


0DH 


7D1C 36 


00040 TEXT2 


DEFM 


'6-25-81 REVISION 0.0' 


7D30 0D 


00050 




DEFB 


0DH 


7D31 45 


00060 TEXTS 


DEFM 


'ENTER STARTING LINE NUMBER' 


7D4B 0D 


00070 




DEFB 


0DH 


7D4C 45 


00080 TEXT4 


DEEM 


'ENTER INCREMENT' 


705B 0D 


00090 




DEFB 


0DH 


7D5C El 


00100 BEGIN1 


POP 


HL ;DU*MT POP 




00110 j **************************************** 




00120 i* 




BEGIN 




00130 ',* 


BEGIN IS THE START OF THE RENUMBER 




00140 f* 


ROUTINE. 






00150 ;* 


1. 


PROMPTS FOR PROPER INPUTS 




00160 ;* 


2. 


RENUMBERS REFERENCES 




00170 ,•* 


3. 


RENUMBERS LINES 




00180 ;* 


4. 


RETURNS TO BASIC 




00190 ;* 


INTERNAL CNiS-DISPLY, INPKB, NEWLIN, UPDATE 




00200 ;* 


EXTERNAL CALLS-01C9-CLEARS SCREEN, 1A1 9- 




00210 ;* 


REIURNS TO BASIC, 0033-DISPLAY5 CHARACTER 




00220 ; ***************************************** 


7D5D CDC901 


00230 BEGIN 


CALL 


01C9H ; CLEAR THE SCREEN 


7D60 21007D 


00240 




LD 


HL.TEXTl 


7D63 CDD47D 


00250 




CALL 


DISPLY ; DISPLAY TITLE St DATE 


7D66 211C7D 


00260 




LD 


HL,TEXT2 


7D69 CDD47D 


00270 




CALL 


DISPLY 


7D6C 3E0D 


00280 




LD 


A.0DH 


7D6E CD3300 


00290 




CALL 


0033H 


7D71 21317D 


00300 




LD 


HL,TEXT3 ; PROMPT FOR STARTING LINE # 


7D74 CDA67D 


00310 




CALL 


INPKB 


7D77 22997F 


00320 




LD 


{START) ,HL ;SAVE IT IN 'START' 


7D7A 214C7D 


00330 




LD 


HL,1EXT4 


7D7D CDA67D 


00340 




CALL 


INPKB fPROMPT FOR INCREMENT 


7D80 7D 


00350 




LD 


A,L 


7D81 B4 


00360 




OR 


H 


7D62 2002 


00370 




JR 


NZ,NOT0 fIF INCREMENTS, FORCE IT TO 1 


7dS4 2E01 


00380 




ID 


L,01 


7D86 229B7F 


00390 NOT0 


LD 


(rNCRj.HL ;SAVE IT IN 'INCR' 


7DB9 7C 


00400 




LD 


A,H 


7D8A PE80 


00410 




CP 


80H 


7D8C 30CF 


00420 




JR 


NC, BEGIN rIF INCR IS NOT NUMERIC, START OVER 


7D8E 2AA440 


00430 




LD 


HL, (40A4H) 


7D91 229D7F 


00440 




LD 


(STRBSC),HL ;GET STARTIN3 ADDR. OF BASIC 



148 / THE REST OF 80 



7D94 CDB47D 


00450 




CALL 


NEWLN f SEARCH AND CORRECT REFEREHCES 


7D97 CD6D7F 


00460 




CALL 


UPDATE ; UPDATE ALL LINE #S 


7D9A 2AF940 


00470 




LD 


HL, C40F9H) 


7D9D 22FB40 


00430 




LD 


(40FBH),HL ^RESTORE, STACK & END OF BASIC 


7DA0 22FD40 


00490 




LD 


(40FDH),HL 


7DA3 C3191A 


00500 




JP 


1A19H ; RETURN TO BASIC 




00510 


.************************************************ 




00520 


. * 




INPKB 




00530 


.* 


1. DISPLAY 


MESSAGE TEXT 




00540 


, * 


2. INPUT UP TO 5 ASCII CHARACTERS 




00550 


.* 


3. CONVERT 


THE NUMBER TO BINARY 




00560 


. * 


4. RETURN 


I IN HL-HB3 PAIR 




00570 


.* 


INTERNAL CALLS-DISPLY 




00580 


.* 


EXTERNAL CALLSH0E6C-CCWVEFTS ASCII TO BINARY 




00590 


.* 


0AFB-CONVERTS SINGLE PRECISION TO INTEGER 




00600 


.* 


0040-INPUT FROM KEYBOARD 




00610 


*********************************************** 


7DA6 CDD47D 


00620 INPKB CALL 


DISPLY ; DISPLAY TEXT 


7DA9 0605 


00630 




LD 


B,05 ; INPUT 5 ASCII CHARACTERS 


7DAB 21B17F 


00640 




LD 


HL,KBUFF 


7DAE CD4000 


00650 




CALL 


0040H 


7DB1 21B07F 


00660 




LD 


HL.KBUFF-1 


7DB4 D7 


00670 




RST 


10H ;TEST INPUT 


7DB5 30A5 


00690 




JR 


NC,BEGINl 


7DB7 21B17F 


00690 




LD 


HL,KBUFF 


7DBA CD6C0E 


00700 




CALL 


0E6CH ;CONVERT IT TO BINARY 


7DBD 3AAF40 


00710 




LD 


A, (40AFH) 


7DC0 FE02 


00720 




CP 


2 ;TEST FOR INTEGER 


7DC2 280C 


00730 




JR 


Z,INPK1 ;JUMP IF IT IS 


7DC4 FE04 


00740 




CP 


4 ;TEST FOR SINGLE PRECISION 


7DC6 2094 


00750 




JR 


NZ,BEGIN1 ;START OVER IF N3T 


7DC8 3A2441 


00760 




LD 


A, (4124H) 


7DCB CDFB0A 


00770 




CALL 


0AFBH fCONVERT TO INTEGER 


7DCE EB 


00780 




EX 


DE,HL 


7DCF C9 


00790 




RET 




7DD0 2A2141 


00800 


INPKL LD 


HL, (4121H) ;RETURN WITH #IN HL 


7DD3 C9 


00810 




RET 






00820 


,******************************************* 




00830 


.* 




DISPLY 




00840 


. * 


1. SEND MESSAGE TEXT TO DISPLAY 




00850 


.* 


2. STOP WHEK RETURN IS ENCOUNTERED 




00860 


.* 


EXTERNAL 


CALLS-0033-DISPLAY A CHARACTER 




00870 


.* 


ON THE SCREEN 




00880 


!******************************************* 


7ED4 7E 


00890 DISPLY LD 


A,(HL) 


7DD5 23 


00900 




INC 


HL 


7DD6 FE0D 


00910 




CP 


0DH ;NEXT CHARACTER A RET? 


7DD8 CAE07D 


00920 




JP 


Z,DISPL1 ;JUMP IF IT IS 


7DDB CD3300 


00930 




CALL 


0033H ; DISPLAY CHARACTER 


7DDE 18P4 


00940 




JR 


DISPLY 


7DE0 CD3300 


00950 DISPL1 CALL 


0033H ;SEND RETURN AND RETURN 


7DE3 C9 


00960 




RET 






00970 


.************************************* 




00980 


.* 




NEWLN 




00990 


,* 


1. CHECK LINE FOR REFERENCE 




01000 


.* 


2. CALCULATE NEW REFERENCE 




01010 


.* 


3. INSERT NEW REFERHKE 




01020 


.* 


4. CONTINUE UNTIL ALL LINES CHECKED 




01030 


.* 


INTERNAL 


CALLS-SUBTr 




01040 


.* 


EXTERNAL CALLS-lE5A-CCNVEKrS ASCII TO BINARY 




01050 


. ************************************** 










Program continued 
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7DE4 

7DE7 

7DE8 

7DE9 

7EGA 

7 DEB 

7DEF 

7DF0 

7DP1 

7DF2 

7DF6 

7DF7 

7DF8 

7DF9 

7DFB 

7DFD 

7DFF 

7E01 

7E03 

7E05 

7B07 

7E09 

7E0B 

703D 

7E0F 

7E11 

7E12 

7E13 

7E14 

7E16 

7EL7 

7E18 

7E19 

7E1B 

7E1C 

7E1D 

7E21 

7E22 

7E24 

7E26 

7E27 

7E29 

7E2B 

7E2C 

7E2F 

7E30 

7E34 

7E37 

7E39 

7E3A 

7E3C 

7E3E 

7E40 

7E42 

7E44 

7E45 

7E47 

7B49 

7B4A 

7B4D 

7E4E 



22B97F 

5E 

23 

56 

23 

ED53A17F 

5E 

23 

56 

ED53A37F 

23 

7E 

A7 

2816 

FE8D 

2827 

FE91 

2823 

FE95 

281F 

FECA 

281B 

FEA1 

282A 

18E5 

23 

7E 

A7 

2007 

23 

7E 

A7 

2001 

C9 

2B 

ED5BA17F 

DF 

20D3 

1BBE 

D7 

28E8 

30OC 

E5 

CD5A1E 

El 

ED53A57F 

CD5E7E 

18BE 

D7 

28D5 

FE8D 

2804 

FE91 

20F5 

D7 

28CA 

300E 

E5 

CD5A1E 

El 

ED53A57F 



01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 



NEWLN 



GETCHR 
GETCHl 



ENDTST 



NTLNE 

ntlni 



GBNCH 



ONBCH 



ONBC1 



LD 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

AND 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

a? 

JR 

CP 

JR 

JR 

INC 

LD 

AND 

JR 

INC 

LD 

AND 

JR 

RET 

DEC 

LD 

RST 

JR 

JR 

RST 

JR 

JR 

PUSH 

CALL 

POP 

LD 

CALL 

JR 

RST 

JR 

CP 

JR 

CP 

JR 

RST 

JR 

JR 

PUSH 

CALL 

POP 

LD 



(LNSTRT).HL 

E,(HL) 

HL 

D,(HL) 

HL 

(NXTLN) . DE 

E, (HL) 

HL 

D,(HL) 

[LNNUM) I DE 



rSAVE ADDR. OF LINE 



;SAVE POINTER TO NEXT LINE 



;SAVE LINE # 



; POINT TO NEXT CHARACTER 



;TEST FOR END OF LINE 
,-TEST FOR 'GOTO' 
TEST FOR 'GOSUB' 
TEST FOR 'ELSE* 
TEST FOR 'THEN' 
TEST FOR 'ON' 

;TEST NEXT CHARACTER FOR ZERO 
;JUMP IF NOT ZERO 



HL 

A,(HL) 

A 

Z.ENDTST 

141 

Z, GBNCH 

145 

Z, GBNCH 

149 

Z, GBNCH 

202 

Z, GBNCH 

161 

Z, ONBCH 

GETCHR 

HL 

A,{HL) 

A 

NZ, NTLNI 

HL 

A, (HL) jTEST FOR SECOND ZERO 

A 

NZ, NTLNE ;JUMP IF NOT ZERO 

HL 

DE, (NXTLN) ;ADDR. - NEXT LINE ADDR. 

18H 

NZ, GETCHl ;IF NOT, GO TEST NEXT CHARACTER 

NEWLN ;IF YES, GET NEW LINE 

10H 

Z.ENDTST ;TEST FOR END OF LINE 

NCGETCH1 ;JUMP IF NOT NUMERIC 

HL ;FOUND REFERENCE 

1E5AH .-CONVERT TO BINARY 

HL 

(LNREF).DE fSAVE LINE IN LNREF 

SUBTT rGO SUBSTITUTE NEW REFERENCE 

GETCH1 ;GBT NEXT CHARACTER 

10H ; FOUND 'ON' REFERENCE 

Z,ENDTST 

141 ;TEST FOR GOTO 

Z,ONBCl 

145 ;TEST FOR GOSUB 

NZ, ONBCH 

10H 

Z.ENDTST ;TEST FOR END OF LINE 

NCONBC2 f JUMP IF NOT NUMERIC 

HL 

1E5AH ; CONVERT TO BINARY 

HL 

(LNREF), DE ,-SAVE LINE IN LNREF 
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7E52 CD5E7E 


01670 






CALL 


SUBTT ;SUBSTITUTE NEW REFERENCE 


7E55 18ED 


01680 






JR 


ONBC1 


7E57 FE2C 


01690 0NBC2 


CP 


2CH ;TEST FOR COMA 


7E59 C2F77D 


01700 






JP 


NZ,GETCH1 ;IF NOT GET NEXT CHARACTER 


7E5C 18E6 


01710 






JR 


0NBC1 jOTHERWISE, CONTINUE 




01720 


.***************#*********************** 




01730 


.# 






SUBTT 




01740 


.* 


1. 


SEARCH 


FOR LINE THAT IS REFERENCED 




01750 


.* 


2. 


CALCULATE THE NEW LINE t 




01760 


* 


3. 


SUBSTITUTE NEW REFERENCE INTO LINE 




01770 


* 


INTERNAL CALLS-NCHK, FIXCHR 




01780 


■ * 


EXTERNAL CALLS-132F-OCMVERT BINARY TO ASCII 




01790 


.* 


1APOCALCULATE NH* LINE ADDRESSES 




01800 


.*#*****#***+*************************** 


7E5E 229F7F 


01810 SUBTT 


LD 


(PRSPS),HL ;SAVE THE PRESENT POSITION 


7E61 010000 


01820 






LD 


BC,0000 


7E64 2A9D7F 


01830 






LD 


HL, (STRBSC) 


7E67 5E 


01840 


5UBT1 


LD 


E,(HL) 


7E68 23 


01850 






INC 


HL 


7E69 56 


01860 






LD 


D,(HL) 


7E6A D5 


01870 






PUSH 


DE ;DE = ADDR. OF NEXT LINE 


7E6B 7B 


01880 






LD 


A,E 


7E6C B2 


01890 






OR 


D 


7E6D CA3f7F 


01900 






JP 


Z,SUEXT ;IF DE - ZERO, WE ARE DONE 


7E70 23 


01910 






INC 


HL 


7E71 5E 


01920 






LD 


E,(HL) 


7E72 23 


01930 






INC 


HL 


7E73 56 


01940 






LD 


D, (HL) ;DE = LINE # 


7E74 2AA57F 


01950 






LD 


HL, (LNREF) ;HL - LINE WE ARE WORKING ON 


7E77 DF 


01960 






RST 


18H 


7E78 2804 


01970 






JR 


Z,SUBT2 ; JUMP IF THEY ARE EQUAL 


7E7A El 


01980 






POP 


HL 


7E7B 03 


01990 






INC 


BC ;ELSE GO TO NEXT LINE AND 


7E7C 18E9 


02000 






JR 


SUBT1 .-INCREMENT BC 


7E7E Dl 


02010 SUBT2 


POP 


DE 


7E7F 110000 


02020 






LD 


DE.0000 


7E82 79 


02030 






LD 


A,C jCALCULATE NEW REFERENCE 


7E83 B0 


02040 






OR 


B 


7E84 2804 


02050 






JR 


Z.SUBT3 


7E86 2A9B7F 


02060 






LD 


HL,(INCR) ;NEW REF-BC*(lNCR)-tSTART 


7E89 EB 


02070 






EX 


DE,HL 


7E8A 2A997F 


02080 SUBT3 


LD 


HL, (START) 


7E8D 19 


02090 


SUBT4 


ADD 


HL.DE 


7E8E 79 


02100 






LD 


A,C 


7E8F B0 


02110 






OR 


B 


7E90 2805 


02120 






JR 


Z.SUBT5 


7E92 0B 


02130 






DEC 


BC 


7E93 79 


02140 






LD 


A,C 


7E94 B0 


02150 






OR 


B 


7E95 20F6 


02160 






JR 


NZ.SUBT4 


7E97 22A97F 


02170 SUBT5 


LD 


(NWLNM),HL ; SAVE NEW REFERENCE IN NWLNM 


7E9A 222141 


02180 






LD 


(4121H),HL 


7E9D 21AB7F 


02190 






LD 


HL,BUFF 


7EA0 010707 


02200 






LD 


BC,0707H .-CONVERT NEW REF TO ASCII 


7EA3 CD2F13 


02210 






CALL 


132FH 


7EA6 2A9F7F 


02220 






LD 


HL, (PRSPS) 


7EA9 CD447F 


02230 






CALL 


t*CHK ;CALCULATE # OF DIGITS IN OLD REF 


7EAC 79 


02240 






LD 


A,C 


7EAD 32A77F 


02250 






LD 


(CHRNO) , A ;CHRNO=# OF DIGITS IN OLD REF 


7EB0 CD4C7F 


02260 






CALL 


FIXCHR ;FDC t TO PROPER FORMAT 


7EB3 79 


02270 






LD 


A,C 

Program continued 
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7EB4 32A87F 


02280 


LD 


(CHRNN),A 


;CHHNN=# DIGITS IN NEW REF 


7EB7 3AA77F 


02290 


LD 


A,(CHRNO) 




7EBA 91 


02300 


SUB 


C 




7EBB 2833 


02310 


JR 


Z,SUBT8 


;JUMP IF CHRWX30WN 


7EBD F20C7F 


02320 


JP 


P,SUBT7 


;JUMP IF CHRNO > CHHNN 


7EC0 F5 


02330 SUBT6 


PUSH 


AF 


,-SAVE THE DIFFERENCE 


7EC1 A7 


02340 


AND 


A 


;CLEAR THE CARRY 


7EC2 2AF940 


02350 


LD 


HL, (40F9H) 




7EC5 E5 


02360 


PUSH 


HL 




7EC6 ED4B9F7F 02370 


LD 


BC, (PRSPS) 




7ECA ED42 


02380 


SBC 


HL,BC 




7ECC E5 


02390 


PUSH 


HL 




7EED CI 


02400 


POP 


BC ;BC*TOTAL # OF BYTES TO BE MOVED 


7ECE El 


02410 


POP 


HL 




7ECF E5 


02420 


PUSH 


HL ;HL=®]D OF BASIC ADDR. 


7ED0 Dl 


02430 


POP 


DE 




7ED1 13 


02440 


INC 


DE ; DE-END OF BASIC+-1 


7ED2 EDB8 


02450 


LDDR 


;tCVE MEMORY FOR 1 NEW CHARACTER 


7ED4 2AF940 


02460 


LD 


HL, (40F9H) 




7ED7 23 


02470 


INC 


HL 




7ED8 22F940 


02480 


LD 


(40F9H),HL 


;FIX END OF BASIC POINTER 


7EDB 2AA17F 


02490 


ID 


HL, (NXTLN) 




7EDE 23 


02500 


INC 


HL 




7EDF 22A17F 


02510 


LD 


(NXTLN), HL 


;FIX NEXT LINE POINTER 


7EE2 EB 


02520 


EX 


DE,HL 




7EE3 2AB97F 


02530 


LD 


HL, (LNSTRT) 




7EE6 73 


02540 


LD 


(HL),E 




7EE7 23 


02550 


INC 


HL 




7EE8 72 


02560 


LD 


(HL),D 




7EE9 CDFC1A 


02570 


CALL 


1APCH ; UPDATE ALL NEXT LINE POINTERS 


7EEC Fl 


02580 


POP 


AF 




7EED 3C 


02590 


INC 


A rJUMP IF MORE CHARACTERS EXIST 


7 HEIR 20D0 


02600 


JR 


NZ,SUBT6 




7EF0 3AA87F 


02610 SUBT8 


LD 


A, (CHENN) 




7EF3 4F 


02620 


LD 


C,A 




7EF4 0600 


02630 


LD 


B,0 




7EP6 21AB7F 


02640 


LD 


HL,BUFF 




7EP9 ED5B9F7F 02650 


LD 


DE, (PRSPS) 


fWJVE NEW REFERENCE TO 


7EFD EDB0 


02660 


LDIR 




; PROGRAM LINE 


7EFF 3AA87F 


02670 SUBT9 


LD 


A, (CHfttN) 




7P02 2A9F7F 


02630 


LD 


HL, (PRSPS) 




7F05 85 


02690 


ADD 


A,L 




7P06 6F 


02700 


ID 


L,A 




7F07 3E00 


02710 


LD 


A,0 




7PB9 8C 


02720 


ADC 


A,H 




7F0A 67 


02730 


LD 


H,A ;POINT TO NEXT CHARACTER 


7P0B C9 


02740 


RET 


,-AND RETUFN 


7F0C F5 


02750 SUBT7 


PUSH 


AF ;SAVE THE DIFFERENCE 


7F0D A7 


02760 


AND 


A 




7P0E 2AF940 


02770 


LD 


HL, (40F9H) 




7F11 ED4B9F7F 02780 


LD 


BC, (PRSPS) 




7F15 ED42 


02790 


SBC 


HL.BC 




7F17 E5 


02800 


PUSH 


HL 




7F18 CI 


02810 


POP 


BC ;BC=*TOTAL # OF BYTES TO BE M3VED 


7F19 2A9F7F 


02820 


LD 


HL, (PRSPS) 




7F1C E5 


02830 


PUSH 


HL ;HL=PRESENT POSITION 


7 FID Dl 


02840 


POP 


DE ;DE=PRESENT POSITION 


7F1E 23 


02850 


INC 


HL 




7P1P EDB0 


02860 


LDIR 


;M3VE MEMORY FOR 1 DIGIT 


7F21 2AF940 


02870 


LD 


HL, (40F9H) 


1 ADJUST END OF BASIC POINTER 


7F24 2B 


02880 


DEC 


HL 
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7F25 22F940 


02390 


7F28 2AA17F 


02900 


7F2B 2B 


02910 


7F2C 22A17F 


02920 


7F2F EB 


02930 


7F30 2AB97F 


02940 


7F33 73 


02950 


7F34 23 


02960 


7F35 72 


02970 


7F36 CDPC1A 


02980 


7F39 Fl 


02990 


7F3A 3D 


03000 


7F3B 20CF 


03010 


7F3D 18B1 


03020 


7F3F Dl 


03030 


7F40 2A9F7F 


03040 


7F43 C9 


03050 




03060 




03070 




03080 




03090 




03100 


7F44 0E00 


03110 


7F46 2B 


03120 


7F47 D7 


03130 


7F48 D0 


03140 


7F49 0C 


03150 


7F4A 18FB 


03160 




03170 




03130 




03190 




03200 




03210 


7F4C 0E00 


03220 


7F4E 21AB7F 


03230 


7F51 2B 


03240 


7F52 D7 


03250 


7F53 D0 


03260 


7F54 FE30 


03270 


7F56 2805 


03280 


7F58 0C 


03290 


7F59 D7 


03300 


7F5A D0 


03310 


7F5B 18FB 


03320 


7F5D E5 


03330 


7F5E C5 


03340 


7F5F D5 


03350 


7F60 010500 


03360 


7F63 E5 


03370 


7F64 Dl 


03380 


7P65 23 


03390 


7F66 EDB0 


03400 


7F68 Dl 


03410 


7F69 CI 


03420 


7F6A El 


03430 


7F6B 18E4 


03440 




03450 




03460 




03470 




03480 




03490 


7F6D 2A9B7F 


03500 



susxr 



LD 


(40F9H),HL 


LD 


HL,(NXTLN) 


DEC 


HL 


LD 


(NXTLN),HL 


EX 


DE.HL 


LD 


HL, (LNSTRT) 


LD 


(HL),E 


INC 


HL 


LD 


<HL),D 


CALL 


1AFCH 


POP 


AF 


DEC 


A 


JR 


NZ,SUBT7 


JR 


SUBT8 ;G 


POP 


DE 


LD 


HL, (PRSPS) 


RET 





.•ADJUST NEXT LIME POINTER 



.•UPDATE ALL NEXT LINE POINTERS 



rJUMP IF M3RE DIGITS EXIST 
PUT NEW REFERENCE IN LINE 

;EXIT SUBSTITITE MODE 



.♦♦A************************************ 

';* NCHK 

;* 1 . COUNTS THE NUMBER OF ASCII 

;* CHARACTERS POINTED TO BY HL-REGISTER 

NCHK 



NCH2 



,***•****+*■#•***************************** 

;* FIXCHR 

;* 1. FIXES ASCII # SO THAT IT IS IN 

•* THE CORRECT FORM FOR USE IN SUBTT 

.a************************************** 

FIXCHR 



LD 


C,0 




DEC 


HL 




RST 


10H 


TEST CHARACTER 


RET 


NC 


RETURN IF NOT NUMERIC 


INC 


C 


INCREMENT COUNT 


JR 


NCH2 


CONTINUE 



FIXCH1 



FIXCH2 



FIXCH3 



LD 


C,0 


LD 


HL.BUFF 


DEC 


HL 


RST 


10H 


RET 


NC 


CP 


30H 


JR 


Z,FDCCH3 


INC 


C 


RST 


10H 


RET 


NC 


JR 


FIXCH2 


PUSH 


HL 


PUSH 


BC 


PUSH 


DE 


LD 


BC,0005 


PUSH 


HL 


POP 


DE 


INC 


HL 


LDIR 




POP 


DE 


POP 


BC 


POP 


HL 


JR 


FIXCH1 



•TEST CHARACTER 
fRETURN IF NOT NUMERIC 

;JUMP IF IT IS AN ASCII ZERO 

; COUNT UNTIL NON-NUMERIC 
.-CHARACTER IS FOUND 

;ROTATE NUMBER LEFT TO 
•DELETE LEADING ZEROS 



;GET NEXT CHARACTER 



.♦♦A*********************************** 

; * UPDATE 

7 * 1 . UPDATES THE ACTUAL LINE NUMBERS 

.* 

.A************************************* 

UPDATE LD HL, (INCR) 



Program continued 
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7F70 EB 


03510 


EX 


DE,HL 




7F71 2A997F 


03520 


LD 


HL, (START) ?UPDATE ALL LINE #S 


7F74 A7 


03530 


and 


A 




7F75 ED52 


03540 


SBC 


HL,D£ 




7F77 22B77F 


03550 


LD 


(TOTAL) 


F HL .'TOTAL = START - INCR 


7F7A 2A9D7F 


03560 


LD 


HL, (STRBSC) 


7P7D 5E 


03570 UPDAT1 


LD 


E,(HL) 


;FIND NEXT LINE ADDR. 


7F7E 23 


03580 


INC 


HL 




7F7F 56 


03590 


LD 


D,{HL) 




7F80 7B 


03600 


LD 


A,E 




7FB1 B2 


03610 


OR 


D 




7F82 C8 


03620 


RET 


Z 


;RETURN IF DCNE 


7E93 D5 


03630 


PUSH 


DE 




7F84 23 


03640 


INC 


HL 




7F85 E5 


03650 


PUSH 


HL 




7F86 2A9B7F 


03660 


LD 


HL, (INCR) ; CALCULATE LINE # 


7F89 EB 


03670 


EX 


DE.HL 




7F3A 2AB77F 


03680 


LD 


HL, (TOTAL) rTOTAL = TOTAL + INCR 


7F8D 19 


03690 


ADD 


HL.DE 




7F8E 22B77F 


03700 


LD 


(TOTAL), 


,HL 


7F91 EB 


03710 


EX 


DE,HL 




7F92 El 


03720 


POP 


HL 




7F93 73 


03730 


LD 


(HL),E 


;LINE # - TOTAL 


7F94 23 


03740 


INC 


HL 




7F95 72 


03750 


LD 


(HL),D 




7F96 El 


03760 


POP 


HL 


;POIWr TO NEXT LINE 


7F97 18E4 


03770 


JR 


UPDAT1 


7 CONTINUE 


0002 


03780 START 


DEFS 


2 


; STARTING LINE # 


0002 


03790 INCH 


DBFS 


2 


; INCREMENT 


0002 


03800 STRBSC 


DEFS 


2 


;ADDR. OF START OF BASIC PROG 


0002 


03810 PRSPS 


DEFS 


2 


; PRESENT POSITION 


0002 


03820 NXTLN 


DEFS 


2 


;NEXT LINE 


0002 


03830 LNNUM 


DEFS 


2 


;LINE NUMBER 


0002 


03840 LNREF 


DEFS 


2 


?LINE REFERENCE 


0001 


03850 CHRNO 


DEFS 


1 


,-# OF DIGITS IN OLD REFERENCE 


0001 


03860 CHKNN 


DEFS 


1 


r# OF DIGITS IN NEW REFERENCE 


0002 


03870 NWLNM 


DEFS 


2 


;NEW LINE REFERENCE 


0004 


03880 BUFF 


DEFS 


4 




7FAF 0000 


03890 


DEFW 


00 




0004 


03900 KBUFF 


DEFS 


4 




7FB5 0000 


03910 


DEFW 


00 




0002 


03920 TOTAL 


DEFS 


2 




0002 


03930 LNSTRT 


DEFS 


2 


; STARTING LINE 


7D5D 


03940 


END 


BEGIN 




00000 TOTAL : 


ERRORS 
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21 

Complete 
Variable Lister 

by John M. Hammang 



System Requirements: 

Level 11 BASIC 

Model I 

16KRAM 



With John Webster's variable lister article [80 Microcomputing, July 
1981), 1 could finally document all my TRS-80 programs. Unfor- 
tunately, Mr. Webster's program fails to list the array variables. My 
modification of it does. 

The key to listing these variables is to jump from array name to array 
name without stumbling over the intervening data and string pointers. 
The first array name immediately follows the last simple variable name. 

Each array describes its contents with the following format. The first 
byte indicates variable type (2 = integer, 3 = string, 4 = single precision, 
and 8 = double precision). The next two bytes are the ASCII values of the 
variable name in reverse order. For instance, if your variable is named 
AB r the B appears first (66) and the A appears second (65). The HL register 
in the Z80 microprocessor reverses them when it retrieves the values for 
processing. The fourth and fifth bytes specify the total number of bytes 
which occur after the fifth byte. These two values, added together, deter- 
mine the size of the array and are also reversed. The value in the fourth 
byte is multiplied by one. This is the least significant byte (LSB). The 
value in the fifth byte is multiplied by 256 (the decimal equivalent of the 
third place value of numbers in the hexadecimal numbering system). 
This fifth byte is the most significant byte (MSB). When you add the 
fourth and fifth bytes you know how far to jump, in decimal form, to the 
next array variable name. 

This gives you the basic array names. The sixth byte tells how many 
dimensions this array has and each following pair of bytes tells the size 
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or depth of each dimension in the array. Thus you can determine and re- 
port not only the number of dimensions for each array but the size of 
each dimension. 

The dimension size byte pairs are reversed for normal Z80 operations. 
The sequence of dimension sizes is also stored in reverse order. For ex- 
ample, if you dimension AB(3,4,5), Level II will store the third size (5) 
first, the second size (4) next, and the first size (3) last. The Complete 
Variable Lister also reports the dimension sizes in reverse order. 

The first part of the program listing approximates Mr. Webster's. Line 
65000 finds the start of the simple variable storage area and dimensions a 
terminating test array. Line 65010 establishes the variable name vahies 
and checks for variable name ZV (the first variable name used in this 
routine). The first time this variable name is encountered, ZU is incre- 
mented and the program flows to the array listing routines. For an expla- 
nation of how the first segment of this program works, see page 259 of 
the July 1981 issue of 80 Microcomputing. 

When you find the ZV variable name the first time, 35 is added to the 
PEEK pointer value (the value of ZV + 35), to jump over the simple vari- 
able names in this program. I use five single precision variables 
(5*7= 35). As in the first segment, the program prints the type of data in 
the array and the variable name. Line 65120 reports the number of 
dimensions (PEEK(ZV + 5)|. Next, the program enters a FOR-NEXT loop 
to report the size of each dimension. Dimension size is computed 
(LSB* 1) + (MSB*256) and printed in reverse order. Line 65140 computes 
the jump to the next array variable name and returns to the start of the 
reporting routine in line 65020. Five is added to the computed jump 
value in line 65140 because the array size, stored in bytes 4 and 5 of the 
array variable, reports only the number of bytes following the array size 
information. 

This program uses very high line numbers so you can add this Com- 
plete Variable Lister to existing programs without renumbering. It also 
uses unusual variable names to avoid conflicts with variable names uti- 
lized in object programs. 

1. CLOAD the object program 

2. PRINT PEEK(16633],PEEK(16634) and write down the results 

3. If PEEK|16633)>2 then go to step 5 

4. If PEEK(16633)<2 then POKE 16548, PEEKj 16633) + 254: 
POKE16549,PEEK(16634)-l then go to step 6 

5. POKE 16548, PEEK( 16633) -2: POKE 16549,PEEK( 16634) 

6. CLOAD the Complete Variable Lister program 

7. POKE 16548,233: POKE 16549,66 

8. Run the object program with ail its subroutines and variations 

9. BREAK and GOTO 65000 to execute the Complete Variable Lister 

Figure 1. How to merge the Complete Variable Lister with your object program 
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Use the procedure listed in Figure 1 to add this program to the pro- 
gram for which you want the list of variables. Complete step 7 before 
listing the combined programs. Step 7 is a call to the Level II merge func- 
tion. You have to run the object program with all its subroutines and 
variations to find all the variables. 

The Level II manual erroneously states that the number and size of di- 
mensions are limited only by the amount of memory available. The data 
pattern for array names and sizes limits the number of dimensions to 255 
and a dimension's depth to 32,768. 

The Complete Variable Lister program reports all simple and array 
variables with any type of data as well as the number and size of each 
array dimension. All arrays are reported whether directly dimensioned 
in the program or dimensioned by default. 



Program Listing 

64950 ' *** OOMPLETE VARIABLE LISTER *** ' 

64960 'BIT: JOf« H. HWWANG 

64970 ' 21730 CHIPMJNK TRAIL EAST 

64980 "WCODHAVEN, MIOIIGAN 48183 

64990 'VERSION 1.0 

65000 ZV=PEEK(16633)+256*PEEK(16634):DIMZV?(1):ZU=1:LPRINT" * 

* * SIMPLE VARIABLES * * *":LPRINTCHR$U38) 

65010 ZV*=PEEK(ZV) sZX=PEEK(ZV+l) sZY=PEEK(ZV+2) t IFZX=86ANDZY=90THE 

NZU=ZU+1 :GOSUB65160:GCTO65010 

65020 LPRINTCHR$(ZY) ?CHR$(ZX); :GOSUB65030:LPRINT" " : LPRINTCHR? ( 1 

38):GCTO65010 

65030 IFZhN2THENLPRINT" % INTEGER"; :GOT06 5070 

65040 IFZV*=3THEHLPRINT"$"; :GCTO65070 

65050 IFZ1*=4THENLPRINT" 1 SINGLE PRECISION"? SGOTO65070 

65060 IFZV^8THENLPRINT" * DOUBLE PRECISION"? :GOTO65070 

65070 ONZUGOTO65080, 65120 

65080 IFZV*=2THENZV=ZV+5: RETURN 

65090 IFZhN3THENLPRINTPEEK(ZV+3);"CHAR. LONG"? :ZV=ZV+6:RETUroi 

65100 IFZW=4THENZV=*ZV+7 : RETURN 

65110 IFZV*=OTffiNZV=*ZV+ll:KETUIW 

65120 LPRINT" ARRAY WITH"; PEEK(ZV+5) ?"DIMENSION(S) ":ZW=ZV+5 

65130 FORZX=PEEK(ZV+5)T01STEP-l:LPRINTTAB(5)"DIM SIZE NO.";ZX;"I 

S" ? (PEEK( ZW-1 )+(PEEK{ ZW-2 ) *256) )-l ? "ELEMENTS" : ZW=ZW-2 :NEXTZX 

65140 ZV=ZV+(PEEK(ZV+3)+(PEEK(ZV+4)*256))+5:RETURN 

65160 IFZU=2THENZV=3V+35:LPRIHT" "tLPRINT" * * * ARRAY VARIABL 

ES * * *":RETURN 

65170 IFZU=3THENLPRINT" ":LPRINTCHR${138) :LPRINT"ALL VARIABLES L 

ISTED":EUD 
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22 

MODSTRING for 
Packing Strings 

by T A Wells System Requirements: 

Model I 

16K RAM 

Level 11 BASIC 



MODSTRING, a utility written in BASIC, can be merged with an- 
other BASIC program. It enables you to pack strings for faster 
graphics or embed machine language in a BASIC program. With MOD- 
STRING, you can pack, modify, and display strings wthout typing and 
later deleting FOR-NEXT loops, DATA statements, and POKE 
statements. 

MODSTRING works by modifying itself. When you type the name of 
the string to be packed or modified, MODSTRING POKEs that name in- 
to one of its own lines, so the VARPTR and LEN functions can be used. 
After the information is obtained, MODSTRING unmodifies itself, to al- 
low another string to be processed. 

How to Use MODSTRING 

If you have a disk system, it's easy. First load your program, in which 
you have put dummy strings. Make sure you don't use line numbers 
higher than 59999. Then merge MODSTRING with it. If you do not have 
a disk system, you will need a separate utility program that allows the 
merging of two BASIC programs. 

After merging, run your program. When it has passed through all lines 
containing dummy strings, BREAK the program. This assures that the 
BASIC interpreter has positioned your string variables in memory just 
above the end of the program. 

Type GOTO 60000. You are prompted from here on by MOD- 
STRING. Type the name of the string. The ENTER key is not needed in 
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any part of MODSTRING. Answer the other prompts and your string 
should print, or list on the screen. You must list the string to modify it. If 
you have printed it, press L. The listed string is in the form 
BYTE#> VALUE. When you press M, you are asked for the number of 
the byte you wish to modify. Three digits must be pressed. For example, 
to change byte 7, press 007. You are then asked for a value from 1 to 255 
(except 34, the ASCII value for a quotation mark). 

Here is an example to try. Load MODSTRING and type the following 
lines: 

100 A$=" 1234567890" 

200 EX$(3] = "12345678901234567890" 

Run the program. When the first prompt appears, press the space 
bar, then A. Answer the subscript quesion with N. Press P to print the 
length of the string (10). Below that, 1234567890 should appear. Now 
press L. The contents of the string (A$) should appear in the 
BYTE#> VALUE format. Press M; to modify the first byte, press 001. 
Select a value, say 191, and type it. This value appears next to the 1> 
near the upper left of the screen. Now press P. The string starts with the 
graphics block. 

For fun, press Q_, then type LIST 100. The line is now: 100 
A$ = "USING234567890". The value 191 is the computer's code for the 
USING keyword. When you print the string, the graphics character is 
always printed. Now run MODSTRING again. List and modify EX$(3) 
in the same way, but press Y in response to the subscript prompt, then 
press 3. 

Program Limitations 

There are some restrictions which must be observed when using this 
program. Don't try to modify the program unless you understand it 



Variable Name Use 

PQ% Loop counter 

PS%, PS! Pointer to end of BASIC program 

Pl$, P2$, P3$, P4J 1NKEYS variables to input string name and choice of process 

P5$, P5% New value for byte to be modified 

PZ!, PZ% Location of string in memory 

PP$ Name of string to be processed 

PL% Length of string being processed 

PA% Length of string being processed, minus one 

PP!, PP% Pointer to location of string in memory 

PI% Counter for byte number of string being processed 

Pl% Counter variable 

P4% Byte position in string 

Figure 1. Variables 
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completely. If you do modify it f or just type it in, save a copy before you 
run it. 

String length can't be changed by MODSTRING. You should decide 
beforehand how long your strings must be. The longest string possible 
is 104 characters. If you like a challenge, try increasing the maximum 
length to 240 characters or so. 

Variable names in your program must be different from those I have 
used (see Figure 1). All variables in MODSTRING have type declara- 
tions such as a percent sign (%) or exclamation point (!). This avoids 
confusion with variables in your program or such statements as 
DEFINTA-Z, DEFDBL or DEFSTR, which you are free to use. When in 
doubt, check the list of variables. 

Do not manipulate any string that is or will be packed. 

This program has only been verified on Radio Shack hardware tape 
and disk (with TRSDOS 2.3) systems. Any other hardware or operating 
systems that change the end-of-program pointers (16633,4) will pro- 
duce problems. 

Line-by-Line Program Description 

60000 Ask for name of string variable to be processed. 

60005 Subroutine to replace PP$ in the LEN and VARPTR statements 

in line 62000. 
60009-60010 Get first letter of string variable name. 
60020 Get second letter of string variable name. Put first plus second 

letters into PP$. 
60022-60027 Ask if the string variable is subscripted. If so, get the value 

of the subscript and put the whole variable name into PP$. 
60030-60040 Print or list option. 
60060 Initialize variables. This keeps ROM from moving them 

around in later steps. 
60100 Go to the heart of the program. 

60200-60201 Set up pointers for the PEEK statements to follow. 
60202 Reject string variables with LEN>104 bytes. 
60208-60232 Print or list the contents of the variable. 
60240-60250 Ask operator for next instruction. 
60260-60320 If modify is selected, modify the screen display and the 

variable. 
60330 Go back for further instructions. 
61000 Find the end of the BASIC program. Memory locations 16633 

and 16634 contain the pointer. 
61220 STEP from the end of the program toward the front looking for 

"PP$" (in ASCII, PP$ is 80, 80, and 36). When found, exit to 

the next statement. 
61900 POKE the name of the variable sought into the next BASIC 
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line, replacing the two occurrences of PP$ in line 62000 with 
the name of the variable the operator has specified. One is the 
argument of the LEN statement at the beginning of the line 
and the other is the argument of the VARPTR statement near 
the end. The blanks in line 62000 following each occurrence of 
PP$ are significant. They provide room for POKEing the name 
of a subscripted variable. 
62000 Find the length of the requested function. If it's less than one, 
put the PP$ back into line 62000, print an error message and 
go get another name. If the length is okay, get PP. 1 , the pointer 
to the variable in memory. Put the PP$ back into line 62000, 
then go process the variable (print, list or modify). 



Program Listing 

59998 REM ** MODSTRING ** 

59999 MM - STRING MODIFICATION PROGRAM - COPYRIGHT 1981 

T. A. WELLS - N.O. , LA. 70118 

60000 CLS:PRINT"STRING MODIFICATION PROGRAM": PRINT s PRINTENTER T 
HE NftME OF THE STRING USING ONLY CHE OF THESE 3 FORMATS: 
<SPACE><LETTER> - <LETTER> <LETrER> - <LETTER><NUMBER> 

> ? "; :GOTO60009 

60005 PORPQ%=lTO2sPOKEPS%-3+PO%,80:POKEPS%-124+PCft,80!NEXT!POKEP 
S% , 36 1 POKEPS%-l 21 , 36 : FORPQ%=4T06 . POKEPS% -3+PQ% , 3 2 : POKEPS% -1 24+PQ 
%, 32 sNEXT: RETURN 

60009 P1$=INKEY$ 

60010 Pl$»INKEYS:IF(Pl$<"A"ORPl$>"Z")ANDPl?<>" "THEN60010ELSEPRI 
NTP1S; :P2$-INKEY$ 

60020 P2$=INKEY$!lF(P2$>"/"ANDP2$<"!"ANDPl$<>" ")OR(P2$>"@"ANDP2 

$ < " [ " )THENPP$»P1 $+P2$+ " $ " : PRINTP2 $ " $ "ELSE60020 

60022 PRINT'IS "PP$" SUBSCRIPTED (Y/N)?"!P1$=INKEYS 

60024 Pl$«INKEYS:IFPl$= , tt"THENPP$=PP$+" "iGOTO60030ELSEIFPl$=" 

Y"THENPPS»PP$+" ( "ELSE60024 

60026 PRINT'VALUE OF SUBSCRIPT (0-9)7"; :P1S=INKEY$ 

60027 Pl$=INKEY$iIFPl$<"0"ORPl$>"9"THEN60027ELSEPPS-PP$+PlS+")" 
60030 PRINT@0,CHR$(31)"<P>RINT "pp$" -OR- <L>IST ITS CONTENTS?" 
60040 P1$=INKEY$:IENOT(P1$«"P"ORP1$="L" )THEN60040 

60060 PL%=0:PP%=0jPPlH3:PS%-0(PSl=«sPA%=0:PI%=<(:PZi=4(:PZ%-0!P3$= 

,, ":P4S="' , !P5S=""iPl%=0:P4%^0!P5%=0 J PQ*»0tPQ$="" 

60100 GOTO61000 

60200 PA%=PL»-1 iPI%-l : IFPPl >32767'IHENPP%='65536-PP1ELSEPP%=PP1 

60201 P21=PEEK(PP%+l)+256*PEEK(PP%+2) :IFPZl>32767THENPZ%=PZl-655 
36ELSEPZ%=PZ1 

60202 IFPIA>104THENPRINTPP$" IS TOO LONG - IT HAS"PL* THftRACTERS 

MAXIMUM IS 104 CHARACTERS. ":FORPQ%=lTOllll:NEXTPQ%iGOTO60000 
60208 PRINT"LEN("PP$")=' t PL% 
60210 PORPS%=PZ%TOPZ%+PA» 

60220 IFP1$="L"THENPRINTUSING"###";PI%; :PRINT">"; :PRINTUSING"### 
"?PEEK(PS%);:PRINT" "; :PI%=PIS+1 

60230 IFP1$="P"THENPRINTCHR$(PEEK(PS%) ) ; :PI%=PI%+1 
60232 NEXT 
60240 PRT.NT@960, "<A>NOTHER STRING <Q>UIT "; :IFP1$="P"THENPRINT" 

Program continued 
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<L>IST ? ";ELSEPRINT"<P>RINT <M>ODIFY 7 "; 
60250 P35=1NKEY$:IFP3$= , «"AHK>1$="L"THQI60260ELSEIFP3$="L"ANEP1$ 
= "P "THENCLS : PI $="L" : PRINT :GOTO60200ELSEIFP3$= "P"ANDP1$= 'V'THENCL 
S ; PRINT : Pl$= "P" : GOTO60200ELSEIFP3$= "Q"THEHENDELSEIFP3$= "A"THEN60 
000ELSE60250 

60260 PRINT@960,CHR$(30);"MODIBY WHICH BITE (001 TO ";STRING$(4- 
LEN(STRS(PL%)),"0 ,, )RIGW^$(STRS(PL%),LEII(STR$(PL*))-l) , ■) ?"; 
60270 P4$="":FORPl%=lT03:P3$="" 

60280 P3$=INKEY$: IFP3$> "9"0RP3$ < "0"THEN60280ELSEP4$=P4$+P3$ : PRIN 
TP3$ ; :NEXT : P4%-VAL( P4$ ) s IFP4% < 10RP4I >PL»THEN60260 
60290 PRINT§960,CHR$(30);"NEW VALUE FOR BYTE #"P4%" = ? "; 
60300 P5$=""jP0RP1%-1T03sP4$="" 

60310 P4$«INKEY$: IFP4?> '^'^OFS^ < "0"THEN60310ELSEP5$=P5$+P4$ : PRIN 
TP4$; sND(T:P5%-<VRL(P5$) :IFP5%=«ORP5%=34ORP5%>255THEN60290 
60320 POKEP»+P4%-l,P5%:TORPl%=^I»2:PCKE15360+132+Pl%+e*(P4*-i) 
ASC(MID$(P5$,P1%+1,1) ):NEXT 
60330 GOTO60240 

61000 PS 1=PEEK( 16633 )+256*PEEK( 16634) :IFPS1 >32767THENPSS=PS1 -655 
36EXSEPS%=PS1 

61220 PORPP%=PS%TOPSS-100STEP-1 :IFPEEK(PP%)»36ANDPEEK(PP%-1)-80A 
NDPEEK(PP%-2 )=80THEN61900ELSENEXT 

61900 PORPQ%»1T06:POKEPP%+PQ%-3,ASC(MID$(PP$,PQ%,1)):POKEPP%-124 
+PQ%, ASC{MID$ (PP$,PQ%,1 ) ) sNEXT 

62000 PS%=PP%:PL*=LEN(PP$ ) :IFPL*<1THENPRINT"ERR0R - STR1M3 HA 
S TO BE DEFINED ALREADSf & HAVE A LENGTH > . . . " : FORPQ%»1TO1670 : 
BtEXTPO^:GOSUB60005:GOTO60000ELSEPPl^VARPTRCPP$ ) sGOSUB60005iGO 
TO60200 
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23 

PASSWORD 
Utility 



by Craig A. Lindley System Requirements: 

Model I 

16K RAM 

Editor/assembler 

One disk drive 

TRSDOS 

PASSWORD lets you lock or unlock password protection so you can 
investigate the system, FORMAT/CMD, BACKUP/CMD and BASIC/ 
CMD files. You can also perform many other operations while the sys- 
tem disk in drive has its password protection unlocked. You can copy, 
kill, print, and list all those files that until now were only entries in your 
directories. 

How the Program Works 

PASSWORD patches the SYS2/SYS file. This file is called up as an 
overlay anytime the operating system tries to open a file for access. In or- 
der to open a file, the operating system must calculate a password code 
(two bytes in length) from the password specified in the disk control 
block (DCB). Subroutine CALPW (see Program Listing) contains the 
code to do this. The calculated password code is compared to the pass- 
word code stored in the directory entry for the specified file. Usually, if 
the two match, the file opens and control passes back from the open rou- 
tine to the calling program, with the Z flag set to indicate the operation 
was completed successfully. If the calculated and stored password codes 
do not match, the open routine ends, and an error message code passes 
back to the calling program in the A register, indicating that access to the 
file was denied. PASSWORD defeats this process by modifying the code 
contained in the SYS2/SYS file so that the calculated and stored pass- 
word codes always appear to match. This is done by changing the 
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relative jump-if-zero instruction to an unconditional jump instruction. 
The lock procedure replaces the jump-if-zero instruction, restoring pass- 
word protection. 

How to Use PASSWORD 

Execute the program by typing PASSWORD while in the DOS com- 
mand mode. After the sign-on message is displayed, you are prompted to 
indicate which disk in the system (0-3) to alter. The specified disk must 
have the SYS2/SYS file resident (it must be a system disk). If not, PASS- 
WORD displays an error message. 

The program prompts for the disk master password before performing 
the unlock/lock operation. If the password you supply is incorrect, the 
program ends. 

It doesn't matter whether the disk in drive is locked. If you enter the 
correct password, the area normally occupied by the SYS2/SYS file is 
loaded into memory from the disk drive specified. PASSWORD checks 
the format of the data to make sure the disk is a system disk. Hit isn't, an 
error message is displayed, and the program ends. If the data format is 
correct, the program tells whether the specified disk is locked or un- 
locked and displays a menu showing the following three options: 

L— Lock selected disk 
U— Unlock selected disk 
Q— Quit this program 

The lock option restores password protection afforded by the operating 
system. The unlock option removes it. These functions patch the 
SYS2/SYS file accordingly and write it back to the specified disk before 
returning to the operating system. Every time you use the altered disk 
as a system disk in drive 0, the password protection of all files in the 
system is unlocked or locked, depending on which option you chose. 
The quit option returns you to the operating system without altering 
the selected disk password status. This option allows you to check a 
disk's status. 



Program Listing 



00100 



. ****■*******#*************************** 
00110 ****** PASSWORD UTILITY ***** 

00120 ;*** VERSICN 1.0 *** 

00130 ;*** AUG 10, 1981 *** 

00140 ;*** BY *** 

00150 ;***** CRAIG A. LINDI^Y ***** 

00160 • *************************************** 
00170 '? 
7000 00180 ORG 7000H 

00190 ; 

00200 ; SYSTEM EQUATES 
00210 ; 
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0049 


00220 CHRIN 


EQU 


0049H 


;ROM CHAR IN ROUTINE 


033A 


00230 CHROUT 


ECU 


033AH 


;ROM CHAR OUT ROUTINE 


01C9 


00240 CLRSCN 


EQU 


01C9H 


j ROM CLEAR SCREEN ROUTINE 


4020 


00250 CURSOR 


EQU 


4020H 


f CURSOR STORAGE 


0060 


00260 DELAY 


EQU 


0060H 


;ROM DELAY ROUTINE 


05D9 


00270 LINEIN 


EQU 


05D9H 


;ROM LINE INPUT ROUTINE 


402D 


00280 OPSYS 
00290 ; 


EQU 


402EH 


;0P SYS ENTRY POINT 


6FFF 


00300 STACK 
00310 ; 


EQU 


$-1 






00320 ; SYSTEM STORAGE LOCATIONS 






00330 ; 








0001 


00340 DRIVE 


DEFS 


1 


;DRTVE # STORAGE 


0001 


00350 SECTOR 


DEFS 


1 


(•SECTOR # STORAGE 


0001 


00360 TRACK 
00370 ; 


DEFS 


1 


,-TRACK # STORAGE 




00380 ;COMPARE STRINGS FOR SYS2/SYS - MUST BE CORRECT FOR 




00390 f PROGRAM OPERATION. 






00400 ; 








7003 ED 


00410 CMPSTl 


DEFB 


0EDH 




7004 52 


00420 


DEFB 


052H 




7005 El 


00430 
00440 j 


DEFB 


0E1H 




7006 21 


00450 CMPST2 


DEFB 


021H 




7007 79 


00460 


DEFB 


079H 




7008 FE 


00470 
00480 ; 


DEFB 


0FEH 






00490 ; SYSTEM MESSAGES 






00500 ; 








7009 913C 


00510 MSG1 


DEFW 


3C91H 




700B 55 


00520 


DEFM 


'UNLOCK/LOCK 


PASSWORD UTILITY' 


7027 03 


00530 


OEFB 


3 




7028 593D 


00540 


DEFW 


3D59H 




702A 52 


00550 


DEFM 


'REV. 1.0" 




7032 03 


00560 


DEFB 


3 




7033 1C3E 


00570 


DEFW 


3E1CH 




7035 42 


00580 


DEFM 


'BY' 




7037 03 


00590 


DEFB 


3 




7038 553E 


00600 


DEFW 


3E55H 




703A 43 


00610 


DEFM 


'CRAIG A. LINDLEY" 


704A 03 


00620 


DEFB 


3 




704B CD3E 


00630 


DEFW 


3ECDH 




704D 44 


00640 


DEFW 


'DRIVE TO BE 


UNLOCKED/LOCKED (0-3) ? ' 


7071 00 


00650 
00660 j 


DEFB 







7072 55 


00670 MSG2 


DEFM 


'UNLOCK/LOCK 


PASSWORD UTILITY' 


708E 0D 


00680 


DEFB 


13 




708F 00 


00690 


DEFB 


13 




7090 55 


00700 


DEFM 


'UNLOCK/LOCK DISK DRIVE # ' 


70A9 00 


00710 
00720 ; 


DEFB 







70AA 0D 


00730 MSG3 


DEFB 


13 




70AB 0D 


00740 


DEFB 


13 




70AC 49 


00750 


DEFM 


'INPUT THE DISK MASTER PASSWORD - ' 


70CD 00 


00760 
00770 ; 


DEFB 







70CE 55 


00780 MSG4 


DEFM 


'tWLOCKAiOCK 


PASSWORD UTILITY ' 


70EA 0D 


00790 


DEFB 


13 




70EB 0D 


00800 


DEFB 


13 




70EC 53 


00810 


DEFM 


'SELECTED DIS 


<K IS CURRENTLY: ' 



Program continued 



THE REST OF 80 / 165 



7109 00 


00820 
00830 ; 


DEFB 







710A 2A 


00840 MSG5 


DEEM 


<*** 


LOCKED ***' 


7118 0D 


00850 


DEFB 


13 




7119 00 


00860 
00870 7 


DEFB 







711A 2A 


00880 MSG6 


DEFM 


>*** 


UNLOCKED ***' 


712A 0D 


00890 


DEFB 


13 




712B 00 


00900 
00910 ; 


DEFB 







712C 0D 


00920 MSG7 


DEFB 


13 




712D 0D 


00930 


DEFB 


13 




712E 2A 


00940 


DEFM 


■ *** 


OPERATICN SELECTION MOW ***' 


714E 0D 


00950 


DEFB 


13 




714F 0D 


00960 


DEFB 


13 




7150 20 


00970 


DEFM 


1 


L - LOCK SELECTED DISK' 


716B 0D 


00980 


DEFB 


13 




716C 20 


00990 


DEFM 


I 


U - UNLOCK SELECTED DISK' 


7189 0D 


01000 


DEFB 


13 




718A 20 


01010 


DEFM 


1 


Q - QUIT THIS PROGRAM' 


71A4 0D 


01020 


DEFB 


13 




71A5 0D 


01030 


DEFB 


13 




71A6 57 


01040 


DEFM 


'WHICH ? ' 


71AE 00 


01050 
01060 ; 


DEFB 







71AF 55 


01070 MSG8 


DEFM 


'UNLOCK/UCCK PASSWORD UTILITY ' 


71CB 0D 


01080 


DEFB 


13 




71CC 0D 


01090 


hppr 


13 




71CD 4F 


01100 


DEFM 


'OPERATIC*! COMPLETE' 


7 IDF 0D 


01110 


DEFB 


13 




71E0 0D 


01120 


DEFB 


13 




71E1 0D 


01130 


DEFB 


13 




71E2 00 


01140 
01150 ; 


DEFB 









01160 ; SYSTEM ERROR MESSW3ES 




01170 ; 








71E3 0D 


01180 EMSG1 


DEFB 


13 




71E4 0D 


01190 


DEFB 


13 




71E5 2A 


01200 


DEFM 


>*•* 


ERROR - IN DISK I/O ***' 


7200 0D 


01210 


DEFB 


13 




7201 00 


01220 
01230 ; 


DEFB 







7202 0D 


01240 EM9G2 


DEFB 


13 




7203 0D 


01250 


DEFB 


13 




7204 2A 


01260 


DEFM 


■ *** 


ERROR - DRIVE NOT READY ***' 


7223 0D 


01270 


DEFB 


13 




7224 00 


01280 
01290 ; 


DEFB 







7225 0D 


01300 EMSG3 


DEFB 


13 




7226 0D 


01310 


DEFB 


13 




7227 2A 


01320 


DEFM 


>*** 


ERROR - INCORRECT DISK PASSWORD ***' 


724E 0D 


01330 


DEFB 


13 




724F 00 


01340 
01350 ; 


DEFB 







7250 0D 


01360 EMSG4 


DEFB 


13 




7251 0D 


01370 


DEFB 


13 




7252 2A 


01380 


DEFM 


<**■* 


ERROR - NOT SYSTEM DISK FORMAT *** ' 


7278 0D 


01390 


DEFB 


13 




7279 00 


01400 
01410 ; 


DEFB 
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01420 ; 










01430 -**++* 


PROGRAM SUBROUTINES ***** 






01440 r 










01450 fTHIS ROUTINE CALCULATES TOE MAIN DISK PASSWORD FRO" 




01460 rTOE OPERATOR 


INPUT 






01470 ; 








727A 21FFFF 


01480 CALPW 


LD 


HL,-1 




727D 0608 


01490 


LD 


B,8 




727F 7B 


01500 


LD 


A,E 




7280 C607 


01510 


ADD 


A,7 




7282 5F 


01520 


LD 


E,A 




7283 3001 


01530 


JR 


NC,PW1 




7285 14 


01540 


INC 


D 




7286 1A 


01550 PW1 


LD 


A, (DE) 




7287 D5 


01560 


PUSH 


DE 




7288 57 


01570 


LD 


D,A 




7289 5C 


01580 


LD 


E,H 




728A 7D 


01590 


LD 


A,L 




728B E607 


01600 


AND 


7 




728D 0P 


01610 


RRCA 






728E 0F 


01620 


RRCA 






728F 0P 


01630 


RRCA 






7290 AD 


01640 


XDR 


L 




7291 6F 


01650 


LD 


L,A 




7292 2600 


01660 


LD 


H,0 




7294 29 


01670 


ADD 


HL,HL 




7295 29 


01680 


ADD 


HL.HL 




7296 29 


01690 


ADD 


HL,HL 




7297 29 


01700 


ADD 


HL.HL 




7298 AC 


01710 


XDR 


H 




7299 AA 


01720 


XDR 


D 




729A 57 


01730 


LD 


D,A 




729B 7D 


01740 


LD 


A,L 




729C 29 


01750 


ADD 


HL,HL 




729D AC 


01760 


XOR 


H 




729E AB 


01770 


XDR 


E 




729F 5F 


01780 


LD 


E,A 




72A0 EB 


01790 


EX 


DE,HL 




72A1 Dl 


01800 


POP 


DE 




72A2 IB 


01810 


DEC 


DE 




72A3 10E1 


01820 


DJNZ 


PW1 




72A5 C9 


01830 
01840 ; 


RET 








01850 ; DISPLAY LINE OUTPUT ROUTINE 






01860 ; 








72A6 7E 


01870 LOUT 


LD 


A,(HL> 


■GET CHAR 


72A7 B7 


01880 


OR 


A 


IS IT ? 


72A8 C8 


01890 


RET 


Z 


IF YES THEN 


72A9 FE03 


01900 


CP 


3 


OTHER TERMINATOR 


72AB C8 


01910 


RET 


Z 


IF YES THEN 


72AC CD3A03 


01920 


CALL 


CHROUT 


DISPLAY IT 


72AF 23 


01930 


INC 


HL 


NEXT CHAR 


72B0 18F4 


01940 
01950 ; 


JR 


LOUT j 


UNTIL FINISHED 




01960 ; FORMATTED MESSAGE OUTPUT ROUTINI 


: 




01970 ; 








72B2 112040 


01980 MSGOUT 


LD 


DE, CURSOR j 


CURR CURSOR STORAGE 


72B5 010200 


01990 


LD* 


BC,2 j 


MOVE ADDRESS 


72B8 EEB0 


02000 


LDIR 


I 


INTO CURSOR STORAGE 


72BA CHA672 


02010 


CALL 


LOUT 


DISPLAY LINE 
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72BD F5 


02020 




PUSH 


AF 


SAVE TERM CHAR 


72BE 3E0F 


02030 




LD 


A,15 


CURSOR OFF CODE 


72C0 CD3A03 


02040 




CALL 


CHROUT 


OUTPUT IT 


72C3 Fl 


02050 




POP 


AF 


RESTORE CHAR 


72C4 23 


02060 




INC 


HL 


NEXT CHAR 


72C5 FE00 


02070 




CP 





END OF MESSAGE 7 


72C7 2802 


02080 




JR 


Z,MSG01 


YES, FINISH UP 


72C9 18E7 


02090 




JR 


MSQOUT 


UNTIL FINISHED 


72CB 3E0E 


02100 M9G01 


LD 


A,14 


CURSOR ON CHAR 


72CD CD3A03 


02110 




CALL 


CHROUT 


DO IT 


72D0 C9 


02120 
02130 




RET 








02140 


; RESTORE DRIVE TO TRACK 00 ROUTINE 




02150 










72D1 CD0973 


02160 RESTOR 


CALL 


SELDSK 


SELECT DRIVE 


72D4 3E03 


02170 




LD 


A, 3 


SEEK 00 CMD 


72D6 32BC37 


02180 




LD 


(37ECH),A 


00 


72D9 CD0973 


02190 RES1 


CALL 


SELDSK 


SELECT DRIVE 


72DC 3AEC37 


02200 




LD 


A,(37ECH) 


GET STATUS 


72DF 0F 


02210 




RRCA 




BUSY ? 


72B0 D0 


02220 




RET 


NC 


IF NOT THEN 


72E1 18F6 


02230 
02240 


t 


JR 


RES1 


LOOP UNTIL NOT BUSY 




02250 


•SEEK ROUTINE 


- THIS ROUTINE SETS UP THE SELECTED DISK 




02260 


,-WITH A 


SEEK TO THE SPECIFIED TRACK. ON RETURN, THE 




02270 


;HEAD IS POSITIONED AT TRACK (TRACK), SECTOR (SECTOR). 




02280 


; 








72E3 CD0973 


02290 


SEEK 


CALL 


SELDSK 


SELECT THE DRIVE 


72E6 21BC37 


02300 




LD 


HL,37ECH 


POINT AT STATUS/COM REG 


72E9 3A0270 


02310 




LD 


A, (TRACK) 


GET TRACK 


72EC 32EF37 


02320 




LD 


(37EFH),A 


SELECT THE TRACK 


72EF 3A0170 


02330 




LD 


A, (SECTOR) 


GET SECTOR 


72F2 32EE37 


02340 




LD 


(37EEH),A 


SELECT SECTOR 


72F5 3E1F 


02350 




LD 


A,1FH 


SEEK CODE 


72P7 77 


02360 




LD 


(HL),A 


■SEEK POSITION 


72F8 FS 


02370 




PUSH 


AF 




72F9 Fl 


02380 




POP 


AF 




72FA F5 


02390 




PUSH 


AF 




72FB Fl 


02400 




POP 


AF 


WASTE TIME 


72FC 7E 


02410 CREADY 


LD 


A,(HL) 


GET STATUS 


72FD 07 


02420 




RLCA 






72FE 3004 


02430 




JR 


NCCBUSY 


GO IF READY 


7300 El 


02440 




POP 


HL 


FIX STACK 


7301 C34073 


02450 
02460 


f 


JP 


NREADY 




7304 0F 


02470 CBUSY 


RRCA 




■ADJ BYTE 


7305 0F 


02480 




RRCA 




BUSY BIT TO FLAG 


7306 D0 


02490 




RET 


NC 


IF MOT BUSY THEN 


7307 18F3 


02500 
02510 


t 


JR 


CREADY 


ELSE 




02520 


fSELBCT THE DISK DRIVE ROUTINE 






02530 


? 








7309 C5 


02540 SELDSK 


PUSH 


BC 


■SAVE "BC" 


730A 3A0070 


02550 




LD 


A, (DRIVE) 


•GET DRIVE # 


730D 47 


02560 




LD 


B,A 


■"B" IS COUNTER 


730E 3E80 


02570 




LD 


A,80H 


■SELECTION BITS 


7310 07 


02580 SEL1 


RLCA 




•ROTATE 


7311 10FD 


02590 




DJNZ 


SELL 


UNTIL FINISHED 


7313 32E137 


02600 




LD 


(37E1H),A 


SELECT THE DRIVE 


7316 CI 


02610 




POP 


BC 


RESTORE "BC" 
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7317 C9 


02620 
02630 ; 


RETT 








02640 ;SECTOR READ ROUTINE ENTRY WITH BUFFER IN "BC" 




02650 ;DRIVE TRACK AND SECTOR NUMBERS ALREADY IN MEMORY 




02660 ; 








7318 CDE372 


02670 SREAD 
02680 


CALL 


SEEK ; 

! 


POSITION HEAD FOR 
REQUIRED OPERATIC!! 


731B 368C 


02690 READ 


LD 


(HL),8CH i 


READ COMMAND 


731D 11EF37 


02700 


LD 


DE,37EFH 


POINT TO DATA REGISTER 


7320 F5 


02710 


PUSH 


AF 




7321 Fl 


02720 


POP 


AF 




7322 F5 


02730 


PUSH 


AF 




7323 Fl 


02740 


POP 


AF 




7324 1803 


02750 
02760 ■ 


JR 


READ2 




7326 0F 


02770 READ1 


RRCA 


! 


BUSY BIT TO FLAG 


7327 300A 


02780 


JR 


NC, STATCK j 


BUSY/DONE GO CK STATUS 


7329 7E 


02790 READ2 


LD 


A,(HL) ; 


GET STATUS 


732A CB4F 


02600 


BIT 


1,A ; 


DRQ BIT 


732C 28F8 


02810 


JR 


Z.READ1 


GO CHECK BUSY 


732E 1A 


02820 READIT 


LD 


A,(DE) 


GET DATA BYTE 


732F 02 


02830 


LD 


(BC),A 


STORE IN BUF1 


7330 03 


02840 


INC 


BC 


NEXT BUF POSITION 


7331 18F6 


02850 


JR 


READ2 , 


GO CK DRQ 


7333 7E 


02860 STATCK 


LD 


A,(HL) 


GET STATUS 


7334 E65C 


02870 


AND 


5CH 


MASK IT 


7336 C8 


02880 
02890 ; 


RET 


Z 


IF NO ERROR 




02900 ;DISK ERROR OUTPUT ROUTINE 






02910 ; 








7337 21E371 


02920 DSKERR 


LD 


HL,EMSG1 


DISK ERROR MSG 


733A CDA672 


02930 ERROR 


CALL 


LOUT 


DISPLAY IT 


733D C32D40 


02940 


JP 


OPSYS 


BACK TO DOS 


7340 210272 


02950 NREADY 


LD 


HL,EMSG2 


DRIVE NOT READY ERR MSG 


7343 18F5 


02960 
02970 ; 


JR 


ERROR 


DISPIAY AND ABORT 




02980 ; STRING COMPARISON ROUTINE FOR SYS2/SY5 FORMAT VERIFY 




02990 ; 








7345 1A 


03000 STRCMP 


LD 


A, (DE) 


GET DISK CHAR 


7346 BE 


03010 


CP 


<HL) 


IS IT - TO CMPSTR CHAR 


7347 2005 


03020 


JR 


NZ,ERR1 


IF MISCOMPARE THEN 


7349 23 


03030 


INC 


HL 


•INC PTRS 


734A 13 


03040 


INC 


DE 




734B 10F8 


03050 


DJNZ 


STRCMP 


-CHECK ALL 7 CHARS 


734D C9 


03060 


RET 




-WHEN COMPARE FINISHED 


734E El 


03070 ERR1 


POP 


HL 


■FIX STACK 


734F 215072 


03080 


LD 


HL.EMSG4 


■FORMAT ERROR MSG 


7352 C33A73 


03090 
03100 ; 


JP 


ERROR 


•DISPIAY AND ABORT 




03110 ; WRITE 


SECTOR ROUTINE 






03120 ; 








7355 CDE372 


03130 SWRITE 
03140 


CALL 


SEEK 


•POSITION HEAD FOR THE 
r REQUIRED OPERATION 


7358 36AC 


03150 WRITE 


LD 


(HL),0ACH 


(WRITE CMD 


735A 11EF37 


03160 


LD 


DE,37EFH 


f POINT TO DATA REGISTER 


735D ES 


03170 


PUSH 


AF 




735E Fl 


03180 


POP 


AF 




735F F5 


03190 


PUSH 


AF 




7360 Fl 


03200 


POP 


AF 


• HASTE TIME 


7361 1803 


03210 


JR 


WRITE2 
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03220 


1 








7363 0F 


03230 WRITE1 


RRCA 




rBUSY BIT TO FLftG 


7364 30CD 


03240 




JR 


NCSTATCK 


jBUSY/DONE GO CK STATUS 


7366 7E 


03250 


WRITE2 


LD 


A,(HL) 


;GET STATUS 


7367 CB4F 


03260 




BIT 


1,A 


?DRQ BIT 


7369 28F8 


03270 




JR 


Z,WRITE1 


;GO CHECK BUSY 


736B 0A 


03280 WRHTT 


LD 


A,(BC) 


;GET BYTE 


736C 03 


03290 




INC 


BC 


;POINT TO NEXT 


736D 12 


03300 




LD 


(DE),A 


; STORE ON DISK 


736E 18F6 


03310 
03320 




JR 


WRITE2 


;GO CHECK DRQ 




03330 


,'WAIT ROUTINE 


- THIS ROUTINE SELECTS THE SPECIFIED DISK 




03340 


;DRTVE AND WAITS FOR IT TO COME UP TO SPEED BEFORE 




03350 


; RETURNING TO THE CALLING PROGRAM. 




03360 


* 








7370 CD0973 


03370 WAIT 


CALL 


SELDSK 


; SELECT THE DRIVE 


7373 010000 


03380 




LD 


BC,0 


;MAX DELAY 


7376 CD6000 


03390 




CALL 


DELAY 


fROM ROUTINE 


7379 C9 


03400 
03410 


. 


RET 








03420 


J********************************* 




03430 




START OF MAIN PROGRAM 


***** 




03440 


.A******************************** 




03450 


• 








737A P3 


03460 START 


DI 




> DISABLE INTERRUPTS 


737B 31FP6F 


03470 




LD 


SP, STACK 


;LOAD STACK PTR 


737E CDC901 


03480 




CALL 


CLRSCN 


; CLEAR DISPLAY 


7381 210970 


03490 




LD 


HL.MSG1 


;SI(3I ON MESSAGE 


7384 CDB272 


03500 




CALL 


MSGOUT 


! DISPLAY IT 


7387 CD4900 


03510 ASK 


CALL 


CHRIN 


;GET RESPONSE 


738A FE34 


03520 




CP 


•4" 


;MRX + 1 


738C 30P9 


03530 




JR 


NC,ASK 


fERROR IF > 3 


738E FE30 


03540 




CP 


'0' 


;MIN 


7390 38F5 


03550 




JR 


C,ASK 


,-ERROR IF < 


7392 F5 


03560 




PUSH 


AF 


,-SAVE ASCII DRIVE # 


7393 D630 


03570 




SUB 


30H 


;CONVERT TO HEX 


7395 3C 


03580 




INC 


A 


fADD ONE TO DRIVE NUMBER 


7396 320070 


03590 
03600 




LD 


(DRIVE), A 


fSTORE DRIVE NUMBER 




03610 


ANSWER IN RANGE CONTINUE 






03620 










7399 CDC901 


03630 




CALL 


CLRSCN 


; CLEAR DISPLAY 


739C 217270 


03640 




LD 


HL,MSG2 


;MSG 


739F CDA672 


03650 




CALL 


LOUT 


; DISPLAY IT 


73A2 Fl 


03660 




POP 


AF 


•RESTORE ASCII DRIVE # 


73A3 CD3A03 


03670 
03680 ; 




CALL 


CHROUT 


; DISPLAY IT 




03690 ; 


READ THE DIRECTORY GAT SECTOR 00 OF SELECTED DISK DRIVE 




03700 ; 










73A6 CD7073 


03710 
03720 




CALL 


WAIT 


;WAIT FOR DRIVE TO 
;COME UP TO SPEED 


73A9 3E11 


03730 




LD 


A,11H 


JTRK NUM 


73AB 320270 


03740 




LD 


(TRACK), A 


•STORE TRK NUM 


73AE 3E00 


03750 




LD 


A,0 


;SECTOR 


73B0 320170 


03760 




LD 


(SECTOR), A 


;STORE SECTOR NUM 


73B3 CDD172 


03770 




CALL 


RESTOR 


fSEEK TRK 00 


73B6 016A74 


03780 




LD 


BCjDBUF 


;SECTOR BUFFER AREA 


73B9 CD1873 


03790 
03800 ; 




CALL 


SREAD 


;READ GAT IN DIR 
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03810 




03820 


73BC 21AA70 


03830 


73BF CDA672 


03840 


73C2 216A75 


03850 


73C5 0608 


03860 


73C7 CDD905 


03870 


73CA 78 


03880 


73CB B7 


03890 


73CC 28EE 


03900 




03910 


73CE EB 


03920 


73CF 83 


03930 


73D0 6F 


03940 


73D1 7A 


03950 


73D2 CE00 


03960 


73D4 67 


03970 


73D5 3E08 


03980 


73D7 90 


03990 


73D8 47 


04000 


73D9 3620 


04010 


73DB 23 


04020 


73DC 10FB 


04030 




04040 


73DE CD7A72 


04050 




04060 




04070 




04080 




04090 




04100 


73E1 ED5B387S 


04110 


73E5 DP 


04120 


73E6 2806 


04130 




04140 


73E8 212572 


04150 


73EB C33A73 


04160 




04170 


73EE 3E10 


04180 


73F0 320270 


04190 


73F3 3E06 


04200 


73F5 320170 


04210 


73F8 CD7073 


04220 




04230 


73FB 016A74 


04240 


73FE CD1873 


04250 




04260 




04270 




04280 


7401 210370 


04290 


7404 11CA74 


04300 


7407 0603 


04310 


7409 CD4573 


04320 


740C 210670 


04330 


740F 11CE74 


04340 


7412 0603 


04350 


7414 CD4573 


04360 




04370 




04380 




04390 



;ASK FOR DISK PASSWORD ROUTINE 



ASK1 



ASK2 



LD 


HL,MSG3 


CALL 


LOUT 


LD 


HL.INBUF 


LD 


B,8 


CALL 


LINEIN 


LD 


A,B 


OR 


A 


JR 


Z,ASK1 


EX 


DE,HL 


ADD 


A,E 


LD 


L,A 


LD 


A,D 


ADC 


A,0 


LD 


H,A 


LD 


A,8 


SUB 


B 


LD 


B,A 


LD 


(HL),20H 


INC 


HL 


DJNZ 


ASK2 



CALL 



CALPW 



REQUEST MSG 

DISPLAY IT 

BUF FOR OPERATOR INPUT 

MAX LENGTH OF PASSWORD 

GET PASSWORD 

LENGTH INTO "A" 

; IF NO INPUT ASK AGAIN 

; POINT "DE" AT PASSWORD 
; POINT "HL" AT END 



MAX IJEHGTH 
- LENGTH 
INTO "B" 
STORE BLANKS 
NEXT POSITION 
FILL REMAINDER WITH 
BLANK CODE 20H 
CALCULATED PASSWORD 
IN "HL" 



rCOMPARE CALCULATED PASSWORD TO THE ONE STORED IN THE GAT 
; SECTOR OF THE SELECTED DISK. 



; PASSWORD LOCATION IN GAT 

rCOMPARE 

;IF OK THEN 

fACCESS DENIED MESSAGE 
;DISPLAY AND ABORT 

;SYS2/SYS LOCATION 

; SECTOR NUM 

;WAIT FOR DRIVE TO 
;COME UP TO SPEED 
;SECTOR BUFFER AREA 
•READ SYS2/SYS 



ASK3 



LD 


DE, (DBUF+206) 


RST 


18H 


JR 


Z,ASK3 


LD 


HL.EMSG3 


JP 


ERROR 


LD 


A,10H 


LD 


(TRACK), A 


LD 


A, 6 


LD 


(SECTOR), A 


CALL 


WAIT 


LD 


BC,DBUF 


CALL 


SREAD 


fS SHOULD NOW BE LOADE 


LD 


HL,CMPST1 


LD 


DE,DBUF+96 


LD 


B,3 


CALL 


STRCMP 


LD 


HL,CMPST2 


LD 


DE,DBUFH00 


LD 


B,3 


CALL 


STRCMP 



rPOINT AT COMPARE STR 
; PATCH POINT COMPARE 
; BYTES TO COMPARE 
jCOMPARE THE STRINGS 
;2ND COMPARE STRING 
; PATCH POINT COMPARE 
;BYTES TO COMPARE 
; COMPARE THE STRINGS 



; DISPLAY CURRENT STATUS UNLOCKED OR LOCKED 
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7417 CDC901 


04400 ASK5 


CALL 


CLRSCN 


CLEAR DISPLAY 


741A 21CE70 


04410 




LD 


HL,MSG4 


STATUS MSG 


741D CDA672 


04420 




CALL 


LOOT 




7420 21CD74 


04430 




LD 


HL,DBUF+99 


PATCH DATA 


7423 7E 


04440 




LD 


A,(HL) 


GET DATA 


7424 FE28 


04450 




CP 


28H 


LOCKED ? 


7426 2805 


04460 




jr 


Z, LOCKED 




7428 211A71 


04470 




LD 


HL,MSG6 


UNLOCKED MSG 


742B 1803 


04480 




JR 


DISIT 


DISPLAY IT 


742D 210A71 


04490 LOCKED 


ID 


HL,MSG5 


LOCKED MSG 


7430 CDA672 


04500 DISIT 


CALL 


LOUT 


DISPLAY STATUS 




04510 












04520 


GET OPERATOR RESPONSE 






04530 










7433 212C71 


04540 




LD 


HL,MSG7 


OPTICN MENU 


7436 CDA672 


04550 




CALL 


LOOT 


DISPLAY IT 


7439 CD4900 


04560 




CALL 


CHRIN 


GET RESPONSE 


743C CD3A03 


04570 




CALL 


CHRCOT 


DISPLAY RESPONSE 


743F FE51 


04580 




CP 


'Q' 


QUIT 7 


7441 CA2D40 


04590 




JP 


Z,OPSYS 


IF YES THEN 


7444 FB4C 


04600 




CP 


'L' 


LOCK DISK ? 


7446 2806 


04610 




JR 


Z,L0CK 




7448 FE55 


04620 




CP 


■u" 


UNLOCK DISK ? 


744A 2806 


04630 




JR 


Z, UNLOCK 




744C 18C9 


04640 
04650 




JR 


ASK5 


IF NONE ASK AGAIN 


744E 3E28 


04660 I 


JOCK 


LD 


A,28H 


PATCH VALUE - LOCK 


7450 1802 


04670 




JR 


PATCH 




7452 3E18 


04680 I 
04690 


JNLOCK 


LD 


A,18H 


PATCH VALUE - UNLOCK 




04700 


SYS2/SYS IS 


LOADED CORRECTLY NOW MAKE PATCH 




04710 










7454 21CD74 


04720 I 


>ATCH 


LD 


HL,DBUF+99 


PATCH LOCATION 


7457 77 


04730 




LD 


(HL),A 


STORE INTO SECTOR DATA 


7458 CD7073 


04740 




CALL 


WAIT 


WATT FOR DRIVE TO 




04750 








COME UP TO SPEED 


745B 016A74 


04760 




LD 


BC.DBUF 


POINT AT SECTOR DATA 


745E CD5573 


04770 




CALL 


SWRITE 


SECTOR BACK TO DISK 


7461 CDC901 


04780 




CALL 


CLRSCN 


CLEAR DISPLAY 


7464 21AF71 


04790 




LD 


HL,MSG8 


OPERATION COMPLETE MSG 


7467 C33A73 


04800 
04810 
04820 




JP 


ERROR 


DISPLAY AND ABORT 


0100 


04830 I 


>BUF 


DEFS 


256 


SECTOR DATA STORAGE 


756A 


04840 ] 

04850 

04860 


[NBUF 


EQU 


9 


INPUT BUFFER AREA 


737A 


04870 




END 


START 




00000 TOTAL ERRORS 
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A Better LDOS 
KSM Builder 

by Mike Tipton System Requirements: 

M ode! 1 or HI 

16KRAM 

One disk drive 

LDOS 

One of the most useful features of the LDOS disk operating system is 
the filter routine, which you can use to enhance the capability of a 
peripheral driver. The keystroke multiplier (KSM), one of the LDOS fil- 
ters, lets you build a file of commands or text strings. The file of com- 
mands is loaded into memory when KSM is activated. You select each 
command by pressing CLEAR and an alphabetic key. When program- 
ming in BASIC, for example, you might define CLEAR-G to display 
GOTO. All the 26 letters can define useful BASIC keywords. 

The BUILD library command permits you to define KSM files. When 
you invoke BUILD, it displays a letter of the alphabet. You are to type 
the text string that is to be assigned to the letter. Each letter is displayed 
in succession. You can exit before Z, but you must start with A and you 
cannot skip any letters. BUILD has no editing capabilities. If you make 
an error, you must start over at A. This makes the BUILD utility awk- 
ward to use, but I solved this problem by writing a short program in 
BASIC (see Program Listing) that allows you to both create and edit 
KSM files. It only takes a few minutes to type it into your system. Com- 
ments were left out to make the typing easier, but it is short enough that 
you should be able to figure out how it works. 

The first prompt is (B)UILD NEW FILE OR (RJEVISE OLD. If you type 
R you are asked for the name of the file you wish to revise. If you type B 
the program goes directly to the build and edit function. The next 
prompt is WHICH LETTER. If you type a single letter (A-Z), the pro- 
gram displays the text associated with the letter, if any, and permits you 
to change it. If no change is desired, press ENTER; otherwise, type the 
text you want. This process repeats as often as necessary. 
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There are also four commands you can use to respond to the prompt: 

PRINT— Prints all your definitions on a line printer. The printout can 
be saved for future reference. Make certain that your printer is on-line 
before using this command. The computer will lock up if it is not. 

LIST— Displays all your definitions on the CRT. 

SAVE— Allows you to write your new KSM file to the disk. You are 
asked for a file name. 

LOAD— Allows you to load and edit a new KSM file. The current file 
in memory is destroyed. 



Program Listing 

20 CLS : PRINT@384, "KSM BUILD UTILITY" 

40 CLEAR 2000 

60 DEFINT A-Z: DIM AA$(26) 

80 INPUT "(B)UILD NEW FILE OR (R)EVISE OLD"; T$ 

100 IF T$="B" THEN GOTO 260: 

120 IF T$="R" THEN GOTO 160 

140 GOTO 80 

160 INPUT "FILENAME" ;T$ 

1B0 OPEN "I",1,T$ 

200 FOR J=l TO 26 j INPUT #1,AA$(J): NEXT J 

220 CLOSE 1 

240 GOTO 280 

260 FOR J=l TO 26: AA$(J)=" ": NEXT J 

280 LINEINPUT "WHICH LETTER ";T$ 

300 IF TS="" THEN PRINT "ERROR": GOTO 280 

320 IF T$="PRINT H THEN GOTO 640 

340 IF T$="LI5T" THEN GOTO 720 

360 IF T$="SAVE" THEN GOTO 540 

380 IF T$="LOAD" THEN GOTO 160 

400 IF LEN(T$)>1 THEN PRINT "ERROR": GOTO 280 

420 T=ASC(LEFT$(T5,l))-64 

440 IF T<1 OR T>27 THEN PRINT "ERROR": GOTO 280 

460 PRINT T$;"="rAA5(T) 

480 PRINT T$;"=?";:T$="":LINEINFUT T$ 

500 IF T$<>"" THEN AA$(T)^T$ 

520 GOTO 280 

540 INPUT "FILE NAME";F$ 

560 OPEN V,1,F$ 

580 FOR J=l TO 26: PRINT #1,AA$(J): NEXT J 

600 CLOSE 1 

620 GOTO 280 

640 FOR J=l TO 26 

660 LPRINT CHRS(J+64);"=";AA$(J) 

680 NEXT J 

700 GOTO 280 

720 FOR J=l TO 26 

740 PRINT CHR$(J+64);"=";AA$(J), 

760 NEXT J 

780 PRINT 

800 GOTO 280 
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T-EDASM: 
Link T-BUG and 
EDTASM 

by Ron Anderson S y stem Requirements: 

Level II BASIC 

Model I 

16K RAM 

Radio Shack EDTASM and T-BUG 



Are you tired of loading and reloading EDTASM and T-BUG again 
and again to assemble and debug one simple machine-language pro- 
gram? I was, until I developed a program, T-EDASM, that links these 
two utilities (EDTASM and T-BUG) into a unified assembly and check- 
out program. 

T-EDASM lets you jump between EDTASM and T-BUG with single 
commands, and loads assembled object code directly into memory from 
EDTASM. No tape and play sequence is required. You only have to load 
your machine-language program once to fully develop, test, and debug it. 

To use T-EDASM, load the single tape program and enter EDTASM. 
To move to T-BUG, type the new command B and press ENTER. To re- 
turn to EDTASM, press A. T-EDASM gives T-BUG two other new com- 
mands. The I command tells EDTASM to dump object code in memory. 
Instead of producing an object code on tape (A command plus two EN- 
TERS), it puts the code directly into memory at the ORG indicated in the 
code. The E command converts EDTASM to the normal tape dump 
mode again. After an EDTASM assemble command, the prompt READY 
CASSETTE appears in the E mode. In the I mode, however, the prompt 
is READY TO STORE. 

Here is a typical programming session with T-EDASM. Develop your 
program using EDTASM, hop to T-BUG (with B), convert to internal 
load, and move back to EDTASM (I) to assemble and load the code into 
memory. Next, go back to T-BUG (B) and use it on your new program 
now in memory. Repeat as required. Finally, use the T-BUG E com- 
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mand to go back to the normal EDTASM and produce final object and 
source tapes. 

You must move T-BUG to a higher than normal memory location be- 
cause of a fundamental EDTASM and T-BUG conflict. I recommend 
that you extend T-BUG as described in "T-BUG and Then Some," by M. Pax- 
ton (80 Microcomputing, November 1980), then move the modified program in- 
to high memory. For this, see "Get T-BUG High," by I. Rappaport {80 Micro- 
computing, January 1980). The version of T-EDASM shown in the program list- 
ing is for use with the extended form of T-BUG starting at address 7380H. 

After you have moved T-BUG, the memory map for the final 
T-EDASM (for 16K of memory) is as shown in Figure 1. This leaves 
6600H-71FFH (a little over 3K bytes) of storage for your new program. 
By using relative jumps in your program, you can use a new ORG just 
before making the final tapes to put your program anywhere else in 
memory. 

Hex Memory Locations Program Portion 

42E9-5D40 plus EDTASM text EDTASM (check end of text with T-BUG) 

6600-71 FF Memory for object code (varies with text) 

7200-72E4 (7200-72E9 for regular T-EDASM 

T-BUG) 

7380- 797F Regular T-BUG 

7380- 7B8 A Extended T BUG 

7B8B-7FFF EDTASM Table 

Figure 1 

Type the T-EDASM program listing into EDTASM and record the ob- 
ject code. If you do not use the extended T-BUG, insert the following 
program lines into the listing in place of line 710: 



710 


CP 'F' 


;REPLACE OR1G T-BUG 


712 


JP Z,780DH 


;BYTES 


714 


JP 73EAH 


;GOTOT-BUG(HlGH) 



and use regular T-BUG, moved to start at 7380H. 

Load T-EDASM, EDTASM and T-BUG (high) and enter T-BUG. Us- 
ing the M command make the code change in T-BUG and EDTASM 
shown in Figure 2. The old bytes for T-BUG are for the extended ver- 
sions. If you are not using this version, the old bytes from 73E5H to 
73E9H are FE, 46, CA, 0D, and 78 (hex). Jump (J468A) to EDTASM' s 
cold start and try everything. Load a fresh tape and use T-BUG' s P com- 
mand (P 42E9 7B8A 468A TEDASM) to save the programs. The 7B8A 
should be 797F if you have the non-extended T-BUG. T-EDASM is now 
ready with a file name of TEDASM. 

If your experimental program crashes, Figure 3 shows a few entry 
points that may restore operation of T-EDASM. If that does not work, 
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you have to reload the programs, so make a source code tape every now 
and then for a long machine language program. If T-BUG hangs up, just 
press ENTER. 



T-BUG 






Hex Mem 


Old New 




73E5 


C3 


C3 




73E6 


06 


6C 




73E7 


7A 


72 




73E8 


00 


00 




73E9 


00 


00 


Figure 2 


Program Portion 






Entry (Hex) 


EDTASM (cold start) 




468A 


EDTASM {warm start) 




46A2 


T-BUG (high) 






73A0 



EDTASM 

Hex Mem Old New 



4930 
4931 



00 AO 
00 73 



Entry (Dec) 

18058 
18082 

296Q0 



Figure 3 



Program Commentary 

Lines 30-190 contain the program which stores the register-A byte 
passed from EDTASM (originally to be output to tape) in memory as an 
object code. The code here is similar to the tape-read portion of T-BUG 
(low) from 4668H to 469BH. Line 40 is the entry point for the first byte 
from EDTASM, if no call was made to EDTASM. Lines 200-310 com- 
plete EDTASM data passage to memory and reinitiate the first byte en- 
try point. Lines 320-380 contain the first entry point from EDTASM 
where register A has data, without requiring a call. This portion of the 
program saves important EDTASM parameters and changes subse- 
quent T-EDASM entry points to RENTRY. 

Lines 390-470 save local CALL-RETURN addresses, store T-EDASM 
important variables, and restore EDTASM parameters. Lines 480-550 
save EDTASM variables and retrieve T-EDASM parameters. Lines 
560-580 set aside storage space to save T-EDASM parameters. Lines 
590-720 are the extension of the T-BUG command input routine to 
check for A, I, and E commands and jumps as required. The delay 
prevents key bounce. 

Lines 730-830 revise EDTASM to incorporate T-EDASM and assem- 
ble to memory. They also modify the prompt to READY TO STORE. 
Lines 840-940 restore EDTASM to its original configuration, which as- 
sembles to tape. They also restore the READY CASSETTE prompt. 

The linkage between EDTASM and T-EDASM is accomplished when 
an EDTASM call statement attempts to pass an assembled byte to a rec- 
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ord subroutine, and T-EDASM intercepts the byte, decodes the informa- 
tion it contains, and stores the actual object code in memory. T-EDASM 
then calls (RET) EDTASM for another byte. 



Program Listing 





00010 jTEDASM 


BY RCN ANDERSON 




7200 


00020 


ORG 


7200H 




7200 CD4572 


00030 DOl 


CALL 


DATA 


;GO GET A BYTE FROM EDTASM 


7203 FE78 


00040 ENTRY 


CP 


78H 


;BND OF FILE? 


7205 281C 


00050 


JR 


Z,FIN 


; IF SO GO FINISH 


7207 FE3C 


00060 


CP 


3CH 


;DATA HEADER? 


7209 20F5 


00070 


JR 


NZ,DOl 


;N0 SEARCH MORE 


720B CD4572 


00080 


CALL 


DATA 


;YES, GET FIRST BYTE (DATA COUNT) 


720E 47 


00090 


LD 


B,A 


;SAVE DATA COUNT 


720F CD4572 


00100 


CALL 


DATA 


;GET LSB OF LOAD ADDR 


7212 5F 


00110 


ID 


E,A 




7213 CD4572 


00120 


CALL 


DATA 


;GET VSB OF LOAD ADDR 


7216 57 


00130 


LD 


D,A 




7217 CD4572 


00140 D02 


CALL 


DATA 


;GET LINE OF DATA 


721A 12 


00150 


LD 


(DE),A 


;LOAD A BYTE 


721B 13 


00160 


INC 


DE 


;MOVE UP 


721C 10*9 


00170 


EUNZ 


D02 


;DO TIL DONE 


721E CD4572 


00180 


CALL 


DATA 


;GEJT CHECKSUM (DON'T USE) 


7221 18DD 


00190 


JR 


DOl 


;START OVER AGAIN 


7223 CD4572 


00200 FIN 


CALL 


DATA 


;GET LSB OF ENTRY ADDR 


7226 €F 


00210 


LD 


L,A 




7227 CD4572 


00220 


CALL 


DATA 


;GET MSB OF ENTRY ADDR 


722A 67 


00230 


LD 


H,A 




722B 226672 


00240 


LD 


(STORED 


,HL ;DUMP START ADDR 


722E 213972 


00250 


LD 


HL, FIRENT ;FIX PROGRAM 


7231 228A43 


00260 


LD 


(43BAH), 


HL ; START 


7234 Fl 


00270 


POP 


AF 


;FIX EDTASM STUFF 


7235 Dl 


00280 


POP 


DE 




7236 CI 


00290 


POP 


BC 




7237 El 


00300 


POP 


HL 




7238 C9 


00310 


ROT 


rGO BACK TO EDTASM 


7239 E5 


00320 FIRENT 


PUSH 


HL 


;SAVE EDTASM STUFF 


723A C5 


00330 


PUSH 


BC 




723B D5 


00340 


PUSH 


DE 




723C F5 


00350 


PUSH 


AF 




723D 215672 


00360 


LD 


HL,REHTKY jMDDIFY IOTRY PT 


7240 228A43 


00370 


LD 


(438AH) , 


HL t , SUBSQ DATA 


7243 18BE 


00380 


JR 


ENTRY 


rPRESS ON 


7245 El 


00390 DATA 


POP 


HL 


;GET LOCAL RET ADDR 


7246 226672 


00400 


LD 


(STOREl),HL ; SAVE LOCAL RET 


7249 ED536872 00410 


LD 


(STORE2),D(E ;SAVE LOAD INDEX 


724D ED436A72 00420 


LD 


(STORE3 


,BC tSAVE DATA COUNT 


7251 Fl 


00430 


POP 


AF 




7252 Dl 


00440 


POP 


DE 


;GET STUFF 


7253 CI 


00450 


POP 


BC 




7254 El 


00460 


POP 


HL 




7255 C9 


00470 


RET 


;BACK TO EDTASM 


7256 E5 


00480 RENTFK 


PUSH 


HL 




7257 C5 


00490 


PUSH 


BC 


fSAVE STUFF 


7258 D5 


00500 


PUSH 


DE 




7259 F5 


00510 


PUSH 


AF 
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STORE1 
STORE2 
STORE3 



DEL 
D03 



725A ED5B6872 00520 
725E ED4B6A72 00530 
7262 2A6672 00540 
7265 E9 00550 
0002 00560 
0002 00570 
0002 00580 
726C FEAl 00590 

726E 200B 00600 
7270 010050 00610 

7273 0B 00620 

7274 78 00630 

7275 Bl 00640 

7276 20FB 00650 
7278 C3A246 00660 
727B FE49 00670 NEXT 
727D 280C 00680 
727F EE45 00690 
7281 282E 00700 
7283 C3067A 00710 
0005 00720 
728B CD21A943 00730 INT 
728F DD3600C9 00740 
7293 DD218943 00750 
7297 DD3600C3 00760 
729B DD360139 00770 
729F DD360272 00780 
72A3 010700 00790 
72A6 21D772 00800 
72A9 11EA48 00810 
72AC EDB0 00820 
72AE C37072 00830 
72B1 DD21A943 00840 EXT 
72B5 DD3600CD 00850 
72B9 DD2 18943 00860 
72BD DD3600E5 00870 
72C1 DD3601CS 00880 
72C5 DD3602D5 00890 
72C9 010700 00900 
72CC 21DE72 00910 
72CF 11EA48 00920 
72D2 EDB0 00930 
72D4 C37072 00940 
72D7 54 00950 Ml 
72DE 43 00960 M2 
0000 00970 
00000 TOTAL ERRORS 



LD 

LD 

LD 

JP 

DEFS 

DEFS 

DEFS 

CP 

JR 

ID 

DEC 

LD 

OR 

JR 

JP 

CP 

JR 

CP 

JR 

JP 

DEFS 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LDIR 

JP 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

LDIR 

JP 

DEFM 

DEFM 

END 



DE, (STORE2) 
BC, (STORE3) 
HL, (STORED 
(HL) 



RECOVER LOAD INDEX 
RECOVER BYTE COUNT 
RECOVER LOCAL RET 
AND GOTO IT 



2 
2 
2 

'A' 

NZ,N£XT 

BC.5000H 

BC 

A,B 

C 

NZ,D03 

46A2H 

•I' 

Z,INT 

'E' 

Z,EXT 

7A06H 

5 

IX,43A9H 

(IX),0C9H 

IX,4389H 

(IX),0C3H 

(IX+D.39H 

(IX+2),72H 

BC.7 ;CHANGE 

HL.M1 ; ASSM 

DE.48EAH 

; MESSAGE 

DEL ;BACK TO EDTASM 



CHK FOR EDTASM RETURN 
NO, NEXT INPUT CHK 
;YES, DELMf 
THE 

JUMP 
TO 

EDTASM 
GOTO EDTASM 

CHK FOR INTERNAL ASSEMBLY 
YES, SET-UP FOR INT STORE 
CHK FOR EXTERNAL ASSEMBLY 
YES, RESTORE INT TO EXT 
NO HITS, PRESS CM IN TBUG 
BOOM FOR TEDASM ADDITIONS 
PREVENT EDTASM 

TAPE ON AND SYNC 
SET-UP JUMP TO 
THE 
NEW 

PROGRAM 



PROMPT 



IX,43A9H 

(IX),0CDH 

IX,4389H 

(IX),0E5H 

(IX+1),0C5H 

(IX+2),0D5H 

BC,7 jRESTORE 

HL,M2 f ASSM 

DE,48EAH 

; MESSAGE 

DEL 

"TO STOR' 

'CASSETT 



; RESTORE TAPE 

; AND SYNC 
; RESTORE 
; ORIGINAL 
; EDTASM 

PROGRAM 



; PROMPT 

fBACK TO EDTASM 
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26 

Menu Program for 
NEWDOS/80 
Version 2 

System Requirements: 

by Dr. Walter J. Atkins, Jr. Model I 

32KRAM 

Level II BASIC 

One disk drive 

NEWDOS/80 Version 2 



Ihave been using Barry Kornfield's disk menu program [80 Microcom- 
puting, November 1980, p. 226) on all my game program disks since it 
appeared. That program, DIRPICK, reads the directory of the disk drive 
of your choice, numbers the programs, and runs any BASIC or /CMD file 
by entering its number. Unfortunately, it doesn't work with the latest 
version of Apparat's NEWDOS/80 operating system. My program is an 
adaptation of DIRPICK for use on the NEWDOS/80 Version 2. 

Because NEWDOS/80 Version 2 is designed to work with double den- 
sity as well as with single density disk drives, it uses a different format 
that allows more files to be displayed on the screen at a time. It displays 
the disk directory in four columns, of fifteen characters each. 

I originally just changed line 230 of DIRPICK to accommodate the 
new format. The original line is L= 15488 + 64*Y + 20*Z. The variable Z 
counts the programs across the screen and the variable Y counts the 
lines on the screen. I changed the line to L= 15488 + 64* Y+ 15* Z. I also 
changed line 200 from FOR Z = TO 2 to FOR Z = TO 3, but this left the 
screen too crowded. 

I fixed that problem when I noticed that there is no need to display the 
file extensions when picking a program to run. /CMD and /BAS merely 
tell the computer whether a file is BASIC or machine language. Without 
the extensions the maximum length of a file name is eight characters, 
and the screen display is neater. Line 350 uses the INSTR function to 
find how many characters there are in the file name preceding the slash 
(/) used to begin the file extension. It then displays all characters up to the 
extension. 
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The original DIRPICK program could display a maximum of 31 pro- 
grams on the screen. This modified version can display and select from a 
maximum of 48. If you have more than 48 programs on a disk, this pro- 
gram does not work correctly, because NEWDOS/80 Version 2 then dis- 
plays the disk directory in pages of up to 48 files each. 

If you run a single drive system, you must change line 200 to read 200 
CMD"DIR". This reads the directory of the disk on drive rather than 
the disk on drive 1. 



Program Listing 



100 REM **************** MENU80 ******************** 

110 HEM DISK MENU PROGRAM 

120 REM - ADAPTED FROM 80 MOCROCOMPUTING NOV 80 P226 - 

130 REM CODED 25 AUG 1981 

140 REM ■' ' CODED BY DR. WALTER J. ATKINS « 
150 REM ************************************************ 
160 REM =■ PROGRAM PURPOSE : TO PROVIDE A SELECTION 

MENU THAT ALLOWS ANY PROGRAM TO BE SELECTED BY 

NUMBER. 
170 REM ************************************************ 
180 REM 
190 CLEAR500 
200 CMD"DIR :1" 

210 TIT$= "AUTOMATIC PROGRAM SELECTION" :TI>LEN (TIT?) 
220 SL-(64-TL)/2tSL««L-l 

230 PRIOT@0,STRING$(SL, "*")+" "VTIT$+" "+STRING$(SL f "*"),- 
240 REM 
250 DIM A$(60) 
260 FOR Z=0 TO 3 
270 L»15488+64*Y+I5*Z 
280 P-tf+1 
290 C-0 

300 X=-PEEK{L+C):IF X<32 THEN X=X464 
310 A$(P)»ft$(P)-tCHRS(X) 
320 CXM-1 

330 IF PEEK(Lh:)<>32 GOTO 300 
340 IF A$(P)=" " GOTO 400 

350 ST>0tSP=OtSP-INSTR("${P), , 7"):IF SP>0 THEN ST-SP-1 ELSE ST-L 
EM(A$(P)) 

360 IF P<10 THEN P$=" "+STR$(P) ELSE P$^TR$(P) 

370 PRINT§(L-I5424),CHRS{30);RIGHr$(P$ ( LEN(PS)-l);". ";LEFT$(A$( 
P),ST)+" "; 
380 NEXT Z 

390 Y=Y+1:IF Y>12 THEN 400 ELSE Z*0:GOTO 260 
400 PRINTCHR$(31h:PRINTe832," "STRING? (63, "*"); 
410 PRINT9896, " CHOOSE THE PROGRAM YOU WOULD LIKE BY ITS NUM 

BER => "r 

420 IF P>10 GOTO460 
430 X$=INKEY$:IF X$="" GOTO 430 
440 X=VAL(X$):IF X<1 OR X>P-1 THEN 400 
450 GOTO470 

460 INPUT X:IF X<1 OR X>P-1 THEN 400 
470 IF RIGHT$(A$(X),3)= ,, CWr THEN CM) AS(X) ELSE RUN A$(X) 
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TRANSCRIPT s R 

System Requirements: 

■ r, ■ ^ Model I 

by Brian Cameron 48K RAM 

Editor/assembler 

Cassette or disk Scripsit 

RS232 Interface 



Before I could save enough money to buy a disk drive for my 32K 
Model I system, the tape-based version of Scripsit was the most use- 
ful program I had. To get the most from my system, I used the tape-based 
version of Scripsit as an off-line editor, to edit text and transmit it to the 
IBM computer where I work. This way I could create files even when 
the IBM was down or the limited phone lines were taken, and transmit 
later. 

The trick was to modify Scripsit to allow a communications program 
to interface with it. With my program, TRANSCRIPT, you can create a 
text file, jump into communications mode, sign on to the computer at 
work, and transmit the formatted text using the Scripsit P,S (print to seri- 
al port) command. 

TRANSCRIPT modifies the BREAK S (SAVE) command for tape, and 
the BREAK S,T command for disk. I used S,T for the disk version so you 
won't be annoyed by a terminal prompt each time you want to save to 
disk. Although a save to tape for the disk version of Scripsit is rare, it is 
still supported. 

Normally the SAVE command saves the data to tape or disk. Now, 
when you invoke it, the program asks if you want to save the text via the 
terminal mode. Reply N, and a normal save is performed. Reply Y, and 
you are put in terminal mode. The terminal program lets you sign on to a 
host system and prepare to transmit data. You can send a break signal to 
the host computer by pressing BREAK, or the up-arrow key if the 
BREAK key is disabled. 
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Having established a link with the host computer, you enter the input 
mode of a system editor, in order to collect and save the data for trans- 
mission. Return to TRANSCRIPT by pressing CLEAR. The screen that 
was saved away is restored and you can send text to the main computer 
by issuing the P,S command. The cursor stops flashing temporarily 
while the data is being transmitted. Type BREAK S again to return to the 
communication mode and close the file on the host computer. 

TRANSCRIPT contains a reverse bit routine to convert uppercase 
characters to lowercase and vice versa before sending the byte to the se- 
rial port. (When you type a lowercase letter on the TRS-80, the computer 
sends it uppercase, and when you press the shift key, it sends it lower- 
case.) I also modified the Scripsit program to allow a delay after a car- 
riage return is sent. Without the delay, a few bytes get lost at the begin- 
ning of the next line. 

When I purchased my disk drive, I refined TRANSCRIPT so it would 
be useful with both disk and tape versions of Scripsit. To use it, you must 
have 48K of memory in your system. 

The program loads at F0000H. Enter the assembly source code in- 
to EDTASM and generate an object file. Then load Scripsit into 
memory without executing it. If you are running a tape version, you 
must load a monitor program at the address specified in the TRAN- 
SCRIPT patch program. Load and execute the patch program. It 
modifies Scripsit and moves the communications package, sitting at 
location FOOOOH, up against Scripsit. Save the memory addresses 
specified by the program, and you have the modified version of 
Scripsit I call TRANSCRIPT. It is no longer necessary to load two 
programs. 

When you load and execute TRANSCRIPT, it moves the packed code 
above F000H. It also protects memory and prevents TRANSCRIPT text 
from overwriting the communications code. The tape version of Scripsit 
sits in memory locations 4300H-69C5H. On an NMI (non-maskable in- 
terrupt), memory locations 433FH-434BH are destroyed. This would 
mean that you could execute Scripsit only once without having to reload. 
To solve this problem I save the code originally at these addresses and re- 
store it at each reset. The packed code is moved back to location FOOOH 
only once, and then the LDIR instruction is set to a 00H (NOP) instruc- 
tion so it will fall through without moving data. 

The modifications for the disk version of Scripsit are minor. I make a 
check of common memory locations, and determine which version is 
resident, if any, and apply the appropriate changes. 

One change I make to the disk version is to alter the return address of 
the END command. Normally address 6595H contains 0000H which re- 
boots the system. I add a jump to the display routine to clear the screen, 
and then go to the warm- start address. 
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Modifying Scripsit 

•Load EDTASM 

•L D = TRSCRIPT/SRC:1 (The source for the patch is on drive 1 and 

called TRSCRIPT) 

•A/WE (specify TRSCRIPT/CMD: 1 to prompt] 

•Reset your system. 

•LOAD Scripsit [do not execute). 

•TRSCRIPT (will execute the patches) 

•Reset your system. 

•DUMP TRANS/CMD:1 5200H 8000H 5200H 

I use the NEWDOS/80 Version 2 disk operating system, and I can- 
not guarantee the results with any other operating system. You 
should be able to make any changes necessary for your particular op- 
erating system: 

In the procedure for the tape version, you must load a monitor pro- 
gram that will allow you to save the modified version to tape after the 
changes have been made. 
•Load EDTASM 
•Load the assembly source code 
•Change the monitor jump address 
•A/WE (write object to tape) 
•Load Scripsit 

•Load the object patch program 
•Load a monitor 

•Run the patch program at FOOOH 
•Save the version of TRANSCRIPT 

The monitor program I use is CPU80, an extended version of my CP80 
monitor program {80 Microcomputing, April 1982), with tape I/O rou- 
tines. I recommend the MON3 monitor, a relocating monitor you can 
move to location AOOOH. You can use MON3 at its normal load address 
7000H, but you have to change the source-code listing to reflect the new 
jump address. If you are using T-BUG, relocate it to a higher address [80 
Microcomputing, January 1980). 







Program Listing 




F000 


01200 


ORG 


0F000H 




002B 


01300 KEYBRD 


EQU 


2BH 




0000 


01400 DISP 


EQU 


0000H 




401 E 


01500 VIDRAM 


EQU 


401EH 




0060 


01600 DELAY 


EQU 


0060H 




000D 


01700 CR 


EQU 


0DH 




00FF 


01800 TRUE 


EQU 


0FFH 


; LOGICAL TRUE 


0000 


01900 FALSE 


EQU 


00H 


; LOGICAL FALSE 


0000 


02000 EQM 


EQU 


00H 
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01C9 


02100 CLEAR 


EQU 


01C9H 




002B 


02200 KBD 


EQU 


2BH ; 


KEYBOARD ROUTINE 


0033 


02300 DSP 


EQU 


33H 




00E8 


02400 RESURT 


EQU 


0E8H 


rIN=<30NTROL BITS ,OUT=RESET 


00E9 


02500 SWITCH 


EQU 


0E9H 


;IN=SWITCH , OUT=BAUD RATE 


00EA 


02600 CTRL 


EQU 


0EAH ; 


RS232 CONTROL 


00EB 


02700 


ISATA 


EQU 


0EBH ; 


RS232 DATA 


4020 


02800 


^URPOS 


EQU 


4020H 






02900 


; FIND OUT WHICH VERSION OF SCRIPSIT 




03000 


; IS LOADED AND JUMP TO PROPER 


ZAP 




03100 


; CODE 










03200 










F000 3A0252 


03300 




LD 


A, (5202H) 


GRAB A COMMON ADDRESS 


F003 FE98 


03400 




CP 


98H 


IS IT TAPE VERSION? 


F005 CAC3F0 


03500 




JP 


Z.MOVER ; 


YES 


F008 FE43 


03600 




CP 


43H 


IS IT DISK VERSION? 


F00A 282 5 


03700 




JR 


Z, DMOVE 


YES 


F00C 2114F0 


03800 




LD 


HL, LOADS 


TELL USER 


F00F CD3DF3 


03900 




CALL 


MSGDSP 


. . . SCRIPSIT NOT LOADED 


F012 


04000 LOOP 


EQU 


$ 




F012 13FE 


04100 




JR 


LOOP 


BUZZ LOOP 


F014 53 


04200 LOADS 


DEFM 


'SCRIPSIT NOT LOADED - RESET' 


F02F 0D 


04300 




DEFB 


CR 




F030 00 


04400 




DEFB 


BOM 






04500 


; THE FOLLOWING CODE WILL ZAP AND MWE THE COMMUNICATION 




04600 


r PROGRAM INTO 


PLACE SO IT CAN 


BE SAVED AWVY . . . 




04700 


; TO BE 


EXECUTED AS ONE MODULE 


LATER 




04800 


; 










04900 


; DISK VERSION 






F031 


05000 DMOVE 


EQU 


$ 




F031 3BC3 


05100 




LD 


A,0C3H 


JUMP CCMMJD 


F033 32745F 


05200 




LD 


(5F74H),A 


ZAP IT 


F036 321266 


05400 




LD 


(6612H),A 




F039 2106F3 


05500 




LD 


HL,DART 




F03C 221366 


05600 




LD 


(6613H),HL 




F03F 214AF3 


05601 




LD 


HL,XDOS 




F042 229565 


05611 




LD 


(6595H),HL 




F045 21DCF1 


05700 




LD 


HL.OURS 




F048 22F966 


05701 




LD 


(66F9H),HL 




F04B 212F52 


05900 




LD 


HL,522FH 


JUMP ADDRESS 


F04E 22755F 


06000 




LD 


(5F75H),HL 


ZAP 


F051 3E21 


06100 




LD 


A,21H 


LOAD COMMAND 


F053 326752 


06200 




LD 


(5267H),A 


ZAP ZAP 


F056 21FFEF 


06300 




LD 


HL,0EFFFH 


GET ADDRESS 


F059 226852 


06400 




LD 


(5268H),HL 


ZAP ZAP ZAP 


F05C 012200 


06500 




LD 


BC,DEND-DAME 


'GRAB COUNT 


F05F 110052 


06600 




LD 


CE,5200H 


■DESTINATION 


F062 2191F0 


06700 




LD 


HL.DAME 


■SOURCE 


F065 EDB0 


06800 




LDIR 




■MOVE IT 


F067 01B101 


06900 




LD 


BC,STACK-CHECKX 


;COUNT 


F06A 11007D 


07000 




LD 


DE,7D00H 


•DESTINATION 


F06D 21D3F1 


07100 




LD 


HL,CHECKX 


; SOURCE 


F070 EDB0 


07200 




LDIR 




?MDVE IT 


F072 011000 


07300 




LD 


BC.16 


; COUNT 


F075 112F52 


07400 




LD 


DE,522FH 


; DESTINATION 


F078 21B3F0 


07500 




LD 


HL,CRCK2 


r SOURCE 


F07B EDB0 


07600 




LDIR 




;MCWE IT 


F07D 011B00 


07700 




LD 


BC,27 




F080 21B8F1 


07800 




LD 


HL,LOGO 




F083 11F757 


07900 




LD 


DE,57F7H 




F086 EDB0 


08000 




LDIR 
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F088 2160F1 


08100 


LD 


HL,DUND 




F08B CD3DF3 


08102 


CALL 


MSGDSP 




F08E C38EF0 


08104 BUZZ 
09100 ; 


JP 


BUZZ 




F091 


09200 DAME 


EQU 


$ 




F091 21PEEP 


09300 


LD 


HL,0EFFEH 


; PncrfECT . . . 


F094 22B140 


09400 


LD 


(40B1H),HL 


;TOP OF BASIC 


F097 22D640 


09500 


LD 


(40D6H),HL 


;AND MEMORY SIZE 


F09A 01B101 


09600 


LD 


BC.STACK-CHECKX ;COUNT 


F09D 11D3F1 


09700 


LD 


EE.CHECKX 


f DESTINATION 


F0A0 21007D 


09800 


LD 


HL,7D00H 


; SOURCE 


F0A3 EDB0 


09900 


LDIR 




;MCVE IT 


F0A5 3E00 


10000 


LD 


A,00H 




F0A7 321252 


10100 


LD 


(5212H),A 




F0AA 321352 


10200 


LD 


(5213H),A 




F0AD CD1266 


10210 


CALL 


6612H ; INIT 


THE UART 


F0B0 C33F52 


10300 


JP 


523FH 




F0B3 


10400 DEND 
10500 r 


EQU 


$ 




F0B3 


10600 CRCK2 


EQU 


5 




F0B3 FE0D 


10700 


CP 


0DH 


; IS IT A CR 


F0B5 C2785F 


10800 


JP 


N2.5F78H 


;N0 - RETURN 


F0BB C5 


10900 


PUSH 


BC 


;SAVE 


F0B9 01FFFF 


11000 


LD 


BC.0FFFFH 


,-AMOUNT OF TIME 


F0BC CD6000 


11100 


CALL 


DELAY 


•WAIT 


F0BF CI 


11200 


POP 


BC 


;RESTORE 


F0C0 C37C5F 


11300 


JP 


5F7CH 


;RETOFN 




11400 ; TAPE VERSION 


[ 




F0C3 


11500 MOVER 


EQU 


$ 




F0C3 3EC3 


11600 


LD 


A.0C3H 


;JUMP COMMAND 


F0C5 32294F 


11700 


LD 


(4F29H),A 


fZAP IT 


F0C8 32AE56 


11800 


LD 


(56AEK),A 


fZAP THE S COMMAND 


F0CB 32EA55 


11900 


LD 


(55EAH),A 




F0CE 21EEF2 


12000 


LD 


HL,TART 




F0D1 22EB55 


12100 


LD 


(55EBH),HL 




F0D4 21D3F1 


12200 


LD 


HL,CHECKX 




F0D7 22AF56 


12300 


LD 


(56AFH),HL 




F0DA 212F43 


12400 


LD 


HL.432FH 


•JUMP ADDRESS 


F0DD 222A4F 


12500 


LD 


{4F2AH),HL 




F0E0 3E21 


12600 


LD 


A,21H 


;LD COMMAND 


F0E2 326443 


12700 


LD 


(4364H) f A 


•ZAP IT 


F0E5 21FFEF 


12800 


LD 


HL,0EFFFH 


;GET ADDRESS 


F0E8 226543 


12900 


LD 


(4365H),HL 


-ZAP IT 


F0EB 012D00 


13000 


LD 


BC,SEND-SAME 


•GRAB THE COUNT 


F0EE 110043 


13100 


LD 


DE,4300H 


• DESTINATION 


F0F1 218BF1 


13200 


LD 


HL,SAME 


;SOURCE 


F0F4 EDB0 


13300 


LDIR 




;MOVE IT 


F0F6 01B101 


13400 


LD 


BC,STACK-CHECKX 


: ;COUNT 


F0F9 11006A 


13500 


LD 


DE.6A00H 


•DESTINATION 


F0FC 21D3F1 


13600 


LD 


HL.CHECKX 


r SOURCE 


F0FF EDB0 


13700 


LDIR 




;MDVE IT 


F101 011B00 


13800 


LD 


BC,27 




F104 21B3F1 


13900 


LD 


HL,LOGO 




F107 11F448 


14000 


LD 


DE.4BF4H 




F10A EDB0 


14100 


LDIR 






F10C 


14200 SAVEM 


EQU 


$ 




F10C 211BF1 


14300 


LD 


HL.DUNT 




F10F CD3DF3 


14310 


CALL 


MSGDSP 




F112 


14320 KWT 


EQU 


'$ 




F112 CD2B00 


14330 


CALL 


KH3 




F115 B7 


14340 


OR 


A 
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F116 28FA 


14350 




JR 


Z,KWT 






14360 


■ REPLACE ADDRESS OF NEXT LINE 






14370 


;WITH THE ADDRESS OF YOUR MONITOR 


F118 C300A0 


14380 




JP 


0A000H 




F11B 53 


14600 DUNT 


DEFM ' 


SAVE MEMORY 4300 


TO 6C00 FOR TAPE VERSION' 


F144 0D 


14700 




DEFB 


CR 




F145 50 


14800 




DEFM 


'PRESS ANY KEY TO CONTINUE* 


F15E 0D 


14900 




DEFB 


0EH 




F15F 00 


15000 




DEFB 


00H 




F160 52 


15100 DUND 


DEFM 


'RESET SYSTEM AND DUMP MEMORY 5200 TO 8000' 


F189 0D 


15200 




DEFB 


CR 




F18A 00 


15300 




DEFB 


00H 




F18B 


15400 SAME 


EQU 


$ 




F18B 21FEEF 


15500 




LD 


HL,0EFFEH 


; PROTECT . . . 


F18E 22B140 


15600 




LD 


(40B1H),HL 


;TOP OF BASIC 


F191 22D640 


15700 




LD 


(40D6H),HL 


;AND MEMORY SIZE 


F194 01B101 


15800 




LD 


BC.STACK-CHECKX 


;COUNT 


F197 11D3F1 


15900 




LD 


DE.CHECKX 


; DESTINATION 


P19A 21006A 


16000 




LD 


HL.6A00H 


;SOURCE 


F19D EDB0 


16100 




LD1R 






F19F 011F00 


16200 




LD 


BC,OURE-CURCK 


; LENGTH 


F1A2 112F43 


16300 




LD 


EE.432FH 


; DESTINATION 


F1A5 2UEF3 


16400 




LD 


HL.OURCK 


; SOURCE 


F1A8 EDB0 


16500 




LDIR 






F1AA 3E00 


16600 




LD 


A,00H 


;NOP OUT ... 


F1AC 32X243 


16700 




LD 


(4312H),A 


fTHE LDIR 


F1AF 321343 


16800 




LD 


(4313H),A 


; INSTRUCTION 


F1B2 CDEA55 


16810 




CALL 


55EAH 




F1B5 C33F43 


16900 




JP 


433FH 




F1B8 


17000 SEND 


EQU 


$ 






17100 


t 








F1B8 54 


17200 LOGO 


DEFM 


'TRANSCRIPT BY BRIAN CAMERON' 


F1D3 


17300 CHEOOC 


EQU 


$ 




F1D3 FE53 


17400 




CP 


'S' 


f IS IT SAVE TAPE? 


F1D5 2805 


17500 




JR 


Z.OURS 


fYES - OUR SAVE FIRST 


F1D7 F5 


17600 




PUSH 


AF 




F1D8 Fl 


16000 




POP 


AF 


? RESTORE REG 


F1D9 C3B256 


18100 
18500 


. 


JP 


56B2H 


f RETURN TO SCRIPSIT 


F1DC 


18600 CURS 


EQU 


$ 




F1DC F5 


18700 




PUSH 


AF 




F1DD C5 


18800 




PUSH 


BC 




FIDE D5 


18900 




PUSH 


DE 




F1DF E5 


19000 




PUSH 


HL 




F1E0 010004 


19100 




LD 


BC.400H 


jGET THE COUNT 


F1E3 1100FC 


19200 




LD 


DE.0FC00H 


;POINT TO DEST 


F1E6 21003C 


19300 




LD 


HL.3C00H 


fPOINT TO SOURCE 


F1E9 EDB0 


19400 




LDIR 






F1EB 


19800 MDSF 


EQU 


$ 




F1EB 2126F2 


19900 




LD 


HL,TERMM 


;GET MESSAGE 


F1EE CDC86B 


20000 




CALL 


6BC8H ; DISPLAY AT BOTTOM 


F1F1 


20100 


MLP1 


EQU 


$ 




F1F1 CD2B00 


20200 




CALL 


KBD 


;GET ANSWER 


F1F4 B7 


20300 




OR 


A 


.•ANYTHING? 


F1F5 28FA 


20400 




JR 


Z.MLP1 ;NO RETRY 


F1F7 CBAF 


20430 




RES 


5, A ; INSURE UPPER CASE 


F1F9 FE59 


20500 




CP 


'Y' 


•IS IT YES? 


F1FB 284B 


20600 




JR 


Z.PRETOP 




F1FD FE4E 


20700 




CP 


'N' 


;IS IT NO? 


F1FF 20EA 


20800 




JR 


NZ,MDSP 


; INVALID - TRY AGAIN 


F201 3E0F 


20900 




LD 


A,0FH 


;TURN CURSOR ... 
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F203 CD3300 


21000 


CALL 


DSP 


;OFF 


F206 010004 


21100 


LD 


BC,400H 


fLENGTH 


F209 11003C 


21200 


LD 


DE,3C00H 


; DESTINATION 


F20C 2100FC 


21300 


LD 


HL,0FC00H 


rSOURCE 


F20F EDB0 


21400 


LDIR 






F211 3AC556 


21500 


LD 


A,<56C5H) 


;GET CC*MCW BYTE 


F214 FECD 


21600 


CP 


0CDH 


;IS IT TAPE? 


F216 2807 


21700 


JR 


Z, DISKE 




F218 El 


21800 


POP 


HL 




F219 Dl 


21900 


POP 


DE 




F21A CI 


22000 


POP 


BC 




F21B Fl 


22100 


POP 


AF 




F21C C34F63 


22200 
22300 ; 


JP 


634FH 




F21F 


22400 DISKE 


BQU 


5 




F21F El 


22500 


POP 


HL 




F220 Dl 


22600 


POP 


DE 




F221 CI 


22700 


POP 


BC 




F222 Fl 


22800 


POP 


AF 




F223 C3C256 


22900 
23000 ; 


JP 


56C2H 




F226 


23100 TERMM 


BQU 


$ 




F226 20 


23110 


DEFM ' 


i i 




F227 54 


23200 


DEFM ' 


TERM MODE? 


t 


F231 20 


23400 


DEFM ' 


; (Y/N)' 




F237 20 


23410 


defm ' 




1 


F247 00 


23600 

23700 ; 


DEFB 


EOM 




F248 


23710 PRETOP 


EQU 


$ 




F248 CDC901 


23720 


CALL 


1C9H : 


rCLEAR AND HOME 


F24B 3E0E 


23721 


LD 


A,0EH j 


:TURN CURSOR ON 


F24D CD3300 


23731 


CALL 


DSP 




F250 


23800 TOP 


EQU 


5 




F250 CD2B00 


23900 


CALL 


KBD 


;SCAN KEYBOARD 


F253 B7 


24000 


OR 


A 


; ANYTHING? 


F254 2838 


24100 


JR 


Z.CKIN 


;NO - CHECK INPUT 


F256 FE0A 


24200 


CP 


0AH 


;DOWN ARROW? 


F258 2834 


24300 


JR 


Z,CKIN 


;YES IGNORE FOR NOW 


F25A 214030 


24400 


LD 


HL,3840H 


;GET ROW 


F25D CB66 


24500 


BIT 


4, (HL) 


;TEST CONTROL KEY 


F25F 2804 


24600 


JR 


Z,SOTCTL 


rNOT DOV*J 


F261 CBB7 


24700 


RES 


6, A 


rWIKE CONTROL 


F263 1824 


24800 


JR 


NBRK 


; SHOW AND TELL 


F265 


24900 NOTCH, 


EQU 


$ 




F265 CDAAF2 


25000 


CALL 


REVBIT 


; REVERSE BITS 


F268 FE1F 


25100 


CP 


1FH 


;IS IT A CLEAR? 


F26A CAC9F2 


25200 


JP 


Z.EXIT 


;JUMP TO CMD HANDLER 


F26D FE01 


25210 


CP 


01H ; 


IS IT BREAK 


F26F 2804 


25220 


JR 


Z, BREAK ; 


YES 


F271 FE5B 


25300 


CP 


5BH 




F273 2014 


25400 


JR 


NZ,NBRK 


;NO - TRANS CHAR 


F275 


25500 BREAK 


EQU 


$ 




F275 3A50F3 


25600 


LD 


A, (CTRLS) 


;GET READY TO BREAK 


F278 CB97 


25700 


RES 


2, A 


;TURN CN BREAK 


F27A D3EA 


25800 


OUT 


(CTRL), A 


,-SEND BREAK 


F27C 014A35 


25900 


LD 


BC,354AH 


;SET WAIT TIME 


F27F CD6000 


26000 


CALL 


DELAY 


;GO WAIT 


F282 3A50F3 


26100 


LD 


A, (CTRLS) 


;TURN OFF BREAK 


F285 D3EA 


26200 


OUT 


(CTRL), A 


;SHSID RESET 


F287 1805 


26300 


JR 


CKIN 


jCHECK FOR INPUT 


F289 


26400 NBRK 


ECU 


$ 
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F289 0)3300 


26500 




CALL 


DSP 


fECHO 


F28C 


26600 DSPIT 


EQU 


$ 




F28C D3EB 


26700 
26800 ; 


OUT 


(DATA), A 




F28E 


26900 CKIN 


EQU 


$ 




F28E DBEA 


27000 


IN 


A, (CTRL) 


fGET STATUS 


F290 CB7F 


27100 


BIT 


7,A 


; ANYTHING WAITING? 


F292 CA50F2 


27200 


JP 


Z,TOP 


;N0 - RETURN 


F295 DBEB 


27300 


IN 


A, (DATA) 


;GET BYTE FROM LINE 


F297 FE0A 


27400 


CP 


0AH 


;IS IT A LF? 


F299 28F3 


27500 


JR 


Z f CKIN 


;YES - IGNORE 


F29B FE7F 


27600 


CP 


7FH 


fIS IT A DEL 


F29D 28EF 


27700 


JR 


Z,CKIN 


jYES - IGNORE 


F29F FE08 


27800 


CP 


08H 


rIS IT BKSP7 


F2A1 2002 


27900 


JR 


NZ, TBELL 


;N0 - CONTINUE 


F2A3 3E18 


28000 


LD 


A,18H 


;CHANGE TO OUR BKSP 


F2A5 


28100 TBELL 


EQU 


5 




F2A5 CD3300 


28200 


CALL 


DSP 


;ECHD 


F2A8 18E4 


28300 


JR 


CKIN 


;TRY AGAIN 




28400 






















28500 




REVBIT - ROUTINE 


TO CONVERT 




28600 






UPPER CASE TO LOWER 




28700 






AND LOWER TO UPPER 




28800 
28900 




















F2AA 


29000 REVBIT 


EQU 


$ 




F2AA FE41 


29100 


CP 


41H 


;CAPS A? 


F2AC FAC8F2 


29200 


JP 


M.NOREV 




F2AF FE7B 


29300 


CP 


7BH 


;LOW CASE Z? 


F2B1 F2CSF2 


29400 


JP 


P, NOREV 




F2B4 FE5B 


29500 


CP 


5BH 


; SQUARE BRACKET? 


F2B6 2810 


29600 


JR 


Z, NOREV 




F2B8 F2BDF2 


29700 


JP 


P, TESTUL 




F2BB 1807 


29800 


JR 


REV 


; REVERSE CODE 


F2BD 


29900 TESTUL 


EQU 


S 




F2BD FE60 


30000 


CP 


60H 


; ACCENT GRAVE 


F2BF 2807 


30100 


JR 


Z, NOREV 




F2C1 FAC8F2 


30200 


JP 


M.NOREV 




F2C4 


30300 REV 


EQU 


$ 




F2C4 EE20 


30400 


XOR 


20H 


; REVERSE CASE 


F2C6 CBAF 


30500 


RES 


5, A 


:CHANGE TO UPPER CASE 


F2C8 


30600 NOREV 


EQU 


$ 




F2C8 C9 


30700 


RET 






F2C9 


30800 EXIT 


BQU 


$ 




F2C9 3E0F 


30900 


LD 


A,0FH 


;TURN CURSOR OFF 


F2CB CD3300 


31000 


CALL 


DSP 




F2CE 010004 


31100 


LD 


BC,400H 


,-SET COUNT 


F2D1 11003C 


31200 


LD 


DE,3C00H 


; POINT TO DESTINATION 


F2D4 2100FC 


31300 


LD 


HL,0FC00H 




F2D7 EDB0 


31400 


LDIR 






F2D9 3AC556 


31500 


LD 


A, (56C5H) 


;FIND OUT IF TAPE OR 1 


F2DC FECD 


31600 


CP 


0CDH 


;IS IT TAPE7 


F2DE 2807 


31700 


JR 


Z, TAPEE 


;N0 


F2E0 El 


31800 


POP 


HL 




F2E1 Dl 


31900 


POP 


DE 




F2E2 CI 


32000 


POP 


BC 




F2E3 Fl 


32100 


POP 


AF 




F2E4 C38B6F 


32200 


JP 


6FBBH 




F2E7 


32300 TAPEE 


EQU 


5 




F2E7 El 


32400 


POP 


HL 




F2E8 Dl 


32500 




POP 


DE 
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F2E9 CI 


32600 




POP 


BC 




F2EA Fl 


32700 




POP 


AF 




F2EB C3FA5E 


32800 
32900 


1 


JP 


5EFAH 




F2EE 


33000 ' 


rART 


EQU 


$ 




F2EE D3E8 


33100 




OUT 


(RESURT),A 




F2F0 DBE9 


33110 




IN 


A, (SWITCH) 




F2F2 3251F3 


33120 




LD 


(SWTCHS), A 




F2F5 E6F8 


33130 




AND 


0FBH 




F2F7 F605 


33140 




OR 


05H 




F2F9 3250F3 


33150 




LD 


(CTRLS), A 




F2FC D3EA 


33160 




OUT 


(CTRL), A 




F2FE 3A51F3 


33170 




LD 


A, (SWTCHS) 




F301 B607 


33180 




AND 


07H 




F303 C3FE55 


33190 
33500 


r 


JP 


55FEH 




F306 


33600 ! 


DART 


EQU 


$ 




F306 D3E8 


33610 




OUT 


(R£SURT),A 




F308 DBE9 


33620 




IN 


A, (SWITCH) 




F30A 3251F3 


33630 




LD 


{SWTCHS),A 




F30D E6F8 


33640 




AND 


0F8H 




F30F F605 


33650 




OR 


05H 




F311 3250F3 


33660 




LD 


(CTRLS), A 




F314 D3EA 


33670 




OUT 


(CTRL), A 




F316 3A51F3 


33680 




LD 


A, (SWTCHS) 




F319 E607 


33690 




AND 


07H 




F31B C32666 


33700 
34100 


. 


JP 


6626H 




F31E 


34200 OURCK 


EQU 


5 




F31E FE0D 


34300 




CP 


0DH 


;IS IT CR? 


F320 C22D4F 


34400 




JP 


NZ.4F2DH 


jNO - RETUrej 


F323 C5 


34500 




PUSH 


BC 


rSAVE REG 


F324 01FFFF 


34600 




LD 


BC,0FFFFH 


;AM3UNT OF TIME 


F327 CD6000 


34700 




CALL 


DELAY 


;WAIT 


F32A CI 


34800 




POP 


BC 


; RESTORE 


F32B C3314F 


34900 




JP 


4F31H 


;RETUPN 


F32E 31FC41 


35000 




LD 


SP.41FCH 




F331 3E0A 


35100 




LD 


A,0AH 




F333 32E837 


35200 




LD 


(37E8H),A 




F336 AF 


35300 




XDR 


A 




F337 32A36B 


35400 




LD 


(6BA3H),A 




F33A 32A16B 


35500 




LD 


(6BA1H),A 




F33D 


35600 CURE 


EQU 


$ 




F33D 


35700 


MSGDSP 


B3U 


$ 




F33D 7E 


35600 




LD 


A,(HL) 




F33E B7 


35900 




OR 


A 




F33F 23 


36000 




INC 


HL 




F340 CA49F3 


36100 




JP 


Z.LP1 




F343 CD3300 


36200 




CALL 


DSP 




F346 C33DF3 


36300 




JP 


MSGDSP 




F349 


36400 LP1 


ECU 


$ 




F349 C9 


36500 
36600 


* 


RET 






F34A 


36601 


XDOS 


EQU 


5 




F34A CDC901 


36602 




CALL 


1C9H ,'CLEAR AND fCME 


F34D C32D40 


36603 




JP 


402DH ;VWRM START DOS 




36700 


; 








F350 00 


36800 CTRLS 


DEFB 


00H 




F351 00 


36810 


SWTCHS 


DEFB 


00H 




0032 


36900 




DEFS 


50 




F384 


37000 STACK 


EQU 


$ 




F000 


37100 




END 


0F000H 
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Tiny Pascal for Disk 

by David R. Goben 



System Requirements: 

Model I 

32KRAM 

Disk BASIC 

NEWDOS/80 

One disk drive 



Tiny Pascal gives you much of the power of Pascal, at low cost. Radio 
Shack sells Tiny Pascal for the 16K and 32K Model I. Unfortunately, 
it' s a tape-based version that cannot perform as is from disk. John B. Har- 
rell came to the rescue with alterations so Tiny Pascal can operate on a 
32K disk system [80 Microcomputing, July 1981). I have modified and ex- 
panded Harrell's program to run faster on my 48K Model I, and operate 
all functions without complicated commands. I have also added printer 
capability and an option to convert tab characters created in the Pascal 
editor to three spaces, for easier reading on a program such as Scripsit. 
The three BASIC programs in this chapter run unchanged on a NEW- 
DOS/80 system, Versions 1 and 2, for the Model I. If you have another 
operating system, you must modify the BASIC code. Program Listing 1 is 
the introductory page; save it under the name INTRO. It runs on DOS 
boot. Program Listing 2 loads a program to memory, and to a printer if 
desired, from disk, then runs the Tiny Pascal program. Save it under the 
name LOAD. Program Listing 3 saves a Pascal program from memory to 
disk; save it under SAVE. 

A user's manual explaining functions and options for the entire pack- 
age is at the end of this chapter. It includes instructions for developing or 
editing Pascal programs with Scripsit. The LOAD program accepts Scrip- 
sit-created files. The Scripsit program is optional, since Tiny Pascal con- 
tains its own text editor. However, Tiny Pascal's editor is line-oriented, 
simple, and limited. You can use any other word processing program, 
such as Electric Pencil, or a BASIC program, in place of Scripsit, as long 
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as it saves the entire text file to disk in ASCII format and concludes with 
a unique character recognized by LOAD. 

LOAD recognizes OFFH (255), the Tiny Pascal end-of-file marker, and 
Scripsit's block-end character, 1BH (27). Refer to line 9 of the LOAD list- 
ing for the recognition coding. You can use any unique ASCII character, 
other than 1BH, produced by the word processing program. A 35-track 
disk easily holds NEWDOS/80, the Tiny Pascal program, three utility 
programs, and a word processor, such as Scripsit. 

The user's manual assumes you have a disk with the following pro- 
grams loaded on it: NEWDOS/80, PASCAL/CMD (Modified PAS32K), 
SCRIPSIT/CMD (with patches for NEWDOS/80), and the three BASIC 
programs, INTRO, LOAD, and SAVE. 

Patching PAS32K for PASCAL/CMD 

Here's how to modify the tape-based PAS32K program to disk. Nov- 
ices at NEWDOS/80's LMOFFSET and SUPERZAP programs should be 
able to use them without any experience. This should be a one-time op- 
eration. Have ready a NEWDOS/80 system disk with all visible files ex- 
cept Scripsit and the three BASIC programs removed. These patches use 
Harrell's Z80 assembly source. 

Boot NEWDOS/80 and load LMOFFSET. Load the PAS32K tape to the 
recorder, set the volume, press PLAY, and type T and press ENTER. 
When the PAS32K program is loaded, the display shows that the pro- 
gram loads from 4D90-73C6. Type 7000, the new module load address, 
and press ENTER. Reply Y to the SUPPRESS APPENDAGE? question. 
You are now told that the module loads from 7000-9636. Answer by 
pressing ENTER. 

If you have Version 2 of NEWDOS/80, you are asked if the destination 
is disk or tape. Make sure that you have the appropriate disk ready to ac- 
cept the file, then type D and press ENTER. After the prompt, type PAS- 
CAUCMDtd and press ENTER, where :d is the drive number. If you 
have Version 1, reboot DOS. If you have Version 2, type N and press 
ENTER after the next two prompts. 

When the next READY prompt appears, type LOAD PASCAL/CMD 
and press ENTER. Then type DUMP PASCAL/CMD 7000H 969CH 
9637H and press ENTER. After the READY prompt, type SUPERZAP 
and press ENTER. Type DFS and press ENTER. Type PASCAL/CMD 
and press ENTER. Type 38 and press ENTER, for the relative sector. 
When the sector is displayed, type MODD3. When you see the blink- 
ing block cursor over location D3, type the following lines: 

F3 AF 21 D2 06 11 00 40 01 36 00 ED B0 
3D 3D 20 Fl 06 27 12 13 10 FC 11 80 40 21 F7 18 
01 27 00 ED B0 21 00 70 11 90 4D 01 37 26 ED BO 

The last two-hex-number entry should force the cursor to location 
00. If not, recheck your entries. 
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When the cursor blinks over location 00, press ENTER and reply Y to 
the prompt. Press ENTER again, and the modified page is displayed. 
Press the plus sign ( + ), and page 39 is displayed. Type MOD00 and 
press ENTER, and the block cursor appears over location 00. 

Type the following patch. When done, the next four hex digits should 
be 02 02. If not, check your work. Do not type the asterisks (*) sur- 
rounding three of the listed entries. If you have a 48K system, change 
BF to FF, and the two 28s to 68. 



21 


72 


96 


11 


D5 


*BF* 


01 


2B 


00 


ED 


B0 


C3 


90 


4D 


21 


00 


98 


11 


F0 


73 


01 


00 


*28* 


ED 


B0 


3E 


FF 


21 


FO 


73 


01 


00 


*28* 


22 


80 


41 


22 


8C 


41 


ED 


Bl 


22 


84 


41 


22 


86 


41 


22 


96 


41 


2B 


22 


82 


41 


C3 


3A 


47 

















When the cursor blinks over the zero in the first 02, press ENTER, 
answer Y, and press ENTER again when prompted. When page 39 is 
displayed again, press K. Answer the prompt with and press ENTER. 
When page is displayed, type MOD 10. When the cursor appears, for 
32K machines type D5BF and press ENTER, and for 48K machines 
type D5FF and press ENTER. Answer Y and press ENTER when 
prompted. When the modified page is displayed, press X to exit the 
mode, then type EXIT and press ENTER to leave SUPERZAP. To test 
your work, after the DOS READY prompt, type PASCAL and press 
ENTER, and Tiny Pascal should be up and running. 

Tiny Pascal User's Manual 

Here is a detailed list of operating instructions for the disk options of 
Radio Shack's Tiny Pascal package. Refer to all data related to the Pas- 
cal program itself in the Tiny Pascal User's Manual 

Running INTRO 

When the Pascal disk is booted, an AUTO file, BASIC RUN 
"INTRO", initializes the system. A menu of seven choices is displayed 
(see Figure 1). 

Option 1 loads the Tiny Pascal program with an empty buffer. 

Option 2 loads a Pascal program from disk and runs Pascal. 

Option 3 saves a program to disk and reruns INTRO. 

Option 4 loads and runs Scripsit. 

Option 5 asks which disk directory to read, reads it, and asks you to 
press ENTER to redisplay the menu. 

Option 6 allows you to run DOS command strings from INTRO. 

Option 7 leaves INTRO and returns to the DOS command mode. 

Running LOAD 

To answer yes in LOAD and SAVE, type Y or Yes. To answer no, type 
N or No or press ENTER. 
When you run LOAD, you are asked for the source file's filespec, 
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then whether the file is resident on a currently mounted disk. If you an- 
swer no, you are prompted to mount it. If you have a one disk system, 
the source program must be on a disk with the same operating system 
as the Pascal package. If you answer X, the filespec request repeats, 
which is useful when you enter an erroneous filename. You are next 
asked if you want to print the file. 

If you answer Y when the printer is not ready, you are prompted, and 
the question is repeated. When the printer is ready, you are asked how 
many lines long each page is. If your pages hold a maximum of 66 lines, 
you would type 66 and press ENTER. You are next asked if you want 
pauses between pages. Last, you are asked if you want data sent to the 
line printer only. If so, after printing, INTRO runs rather than 
PASCAL/CMD. 

The appropriate PASCAL program is loaded to RAM, and listed one 
line at a time to the screen (and printer, if specified). After the program is 
loaded, the Pascal file is run unless you need to mount another disk to 
load the file. In that case you are prompted to reload the Pascal disk to 
drive 0. Once you do this and press ENTER, Tiny Pascal loads and runs. 

* * TINY * PASCAL * * Disk Version 

Pascal Menu 

<1> PASCAL program without data 

<2> *LOAD a PASCAL source program & run PASCAL 

<3> *SAVE a PASCAL program to disk 

<4> Load SCRIPSIT to edit or create files 

<5> Do a DIRECTORY read with 'A' option 

<6> Do a DOS command 

<7> Exit BASIC to DOS command mode 

•Note that you must RE- BOOT DOS (which returns to this program) from PASCAL to 
SAVE (or LOAD) a fiJe via disks. 

Key in your choice <1~7>? 

Figure 1. Screen display of Pascal menu 

Running SAVE 

To run SAVE while in Tiny Pascal, reboot DOS, and INTRO reruns. 
Answer the prompt with option 3. When SAVE is run, you are asked if 
you want the file printed. If you answer yes, you are asked (as in LOAD) 
for the page length and whether you want pauses between pages. Next, 
you are asked if you want the file sent to the line printer only. If you an- 
swer yes, skip the next paragraph. A no answer sends the file to the 
printer, disk, and screen. 
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If you answered no to the print question, you are asked for the 
name of the program, then whether the destination disk is currently 
mounted. If you answer X, the filespec request repeats. If you answer 
no, you are prompted to load the destination disk. The drive disk must 
contain the same operating system as the Pascal disk. 

You are asked if you want the TAB characters (09H), used in Tiny Pas- 
cal's editor, converted to three spaces by the editor's display driver. This 
option is handy if you want to use Scripsit to edit a program created or 
edited by Pascal's editor. Otherwise, Scripsit prints each TAB character 
as a single left arrow. The program is displayed on the screen one line at 
a time, to show that it is being loaded to disk properly. Once the program 
is loaded, INTRO reruns. 

Line-Print from Tiny Pascal 

If you want data that is normally sent to the monitor printed instead, 
include the two procedures in Figure 2 in your Pascal program. The first 
diverts video output to the printer driver, and the second resets the 
video driver to normal. 

PROC LPR1NT; (* DIVERT VIDEO TO PRINTER *) 
BEGIN 

MEMW(%401E): = %058D; 
END; 

PROC VIDEO; |* RESET VIDEO OUTPUT TO VIDEO *) 
BEGIN 

MEMW(%401E): = %0458; 
END; 

Figure 2 

Handling Pascal Files with Scripsit 

Use uppercase (SHIFT® command) to type programs if you have the 
lowercase modification. If you want a blank line separating program 
blocks, insert a space before pressing ENTER. Tiny Pascal must have 
data on a line, even if it is only a blank space. Do not include any special 
Scripsit printer options in the file. Tiny Pascal sees them as illegal entries. 

LOAD recognizes Tiny Pascal files, and Scripsit files that meet specifi- 
cations. Two other points are important. First, the Pascal program ends 
with an end-block character, followed by a carriage return. When the 
last line has been typed and entered, press control-block, control-end, 
ENTER, CLEAR. Second, the file must be saved in ASCII format. If you 
want to load it to a file that Scripsit has called from disk, press BREAK, 
type S,A and press ENTER. If it is a new file, or you want to change 
the file name, enter the command mode via BREAK. Then type S,A 
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and press space and type the filename you want for the Pascal 
program. 

Special Notes 

It is a good idea to put a /PAS extension on Pascal filenames, for easy 
recognition. If you are editing in Scripsit an existing Pascal program 
which was loaded to disk in the SAVE program, you will note two graph- 
ics blocks at the end of the program listing, followed by a Scripsit car- 
riage return character. If you modified the program listing and want to 
save the newer version to disk, you must delete the three graphics char- 
acters and add the end-block and carriage return characters as described 
earlier. 

As an aid in writing the source programs, before keying in data, press 
BREAK and type T = 3,6,9, 12,15,18,21, then press ENTER. This allows 
you to use control-right arrow to tab three spaces at a time. 



Program Listing 1. INTRO 

1 * INTRO 

2 ' 

3 POKE &H4J0B1,4HFF: 
POKE &H40B2,4H97: 
ON ERROR GOTO 27; 
CLS •. 

PRINT "** TINY * PASCAL ** Disk version"; 
PRINT 

4 PRINT TAB( 8); "Pascal Menu 

5 PRINT "<1> PASCAL program without data 

6 PRINT ™<2> *LOAD a PASCAL source program & run PA 
SCAL 

7 PRINT "<3> *SAVE a PASCAL program to disk 

8 PRINT "<4> Load SCRIPSIT to edit or create files 

9 PRINT "<5> Do a DIRECTORY read with 'A' option 

10 PRINT "<6> Do a DOS Command 

11 PRINT "<7> Exit BASIC to DOS Command mode": 
PRINT 

12 PRINT "*Note that you must RE-BOOT DOS (which returns t 
o this program) 

13 PRINT " from PASCAL to SAVE (or LOAD) a file via disks. 

PRINT 

14 INPUT "Key in your choice <1-7>";CH$ 

15 IP VAL (CH$) < 1 OR VAL (CH$ > > 7 

THEN 

PRINT "Wrong choice. Please try again": 
FOR 

X = 1 TO 750: 
NEXT : 
GOTO 3 

16 ON VAL <CH$> GOTO 17 , 18 , 19 , 26 , 2j3 , 28 , 25 

17 CMD "S=PASCAL" 

18 RUN "LOAD" 
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19 RUN "SAVE" 

20 INPUT "Which Drive <0-3>";D$ 

21 IP VAL (D$) < OR VAL (D$ ) > 3 

THEN 
20 

22 D$ = "DIR " + D$ + "A": 
CMD "D$" 

23 PRINT : 

INPUT "Press ENTER to redisplay Menu" ;CH$ 

24 GOTO 3 

25 CLS : 
CMD "S" 

26 CMD "S=SCHIPSIT" 

27 CMD "E": 
FOR 

V = 1 TO 750; 
NEXT : 
RESUME 3 

28 CLS : 

LINE INPUT "Key in Command string: ";STS: 

IF ST$ = "" 

THEN 
3 

ELSE 
CMD "ST$"i 
GOTO 2 3 



Program Listing 2. LOAD 

1 ' LOAD 

2 ' 

3 POKE &H40B1,&HFF: 
POKE S,H40B2,SH97: 
CLS : 

CLEAR 300: 

DEFINT A - Z; 

AD * &H9800: 

PRINT TAB( 14)"** TINY * PASCAL ** Pile Loader " t 

PRINT 

4 LINE INPUT "Enter Fileapec for Source File: ";FSS: 
IF F$$ - "" 

THEN 

RUN "INTRO" 
ELSE 
A$ = "": 

PRINT "Is Source on a mounted disk (if not, then it mus 
t be on a": 

INPUT "System 0igfc>";A$: 
IF A$ = "X" 
THEN 
4 
ELSE 
IF LEFTS (A$ r l) = "N" 
THEN 

INPUT "Mount Source Disk and press ENTER"; 

5 T$ = " " ; 

INPUT "Output data to Line Printer" ;T$: 
IF LEFTS (T$,l) » "Y" 

Program continued 
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THEN 

IF PEEK (14312) < > 63 
THEN 

PRINT "Line Printer NOT ready!": 
PRINT : 
GOTO 5 
ELSE 
INPUT "What is your page leanth";LL: 
IF LL < 7 
THEN 

17 
ELSE 
LL = LL - 6: 
L = LL: 
INPUT "Pause between pages";G$ 

6 US = "": 

IF LEFT$ (T$,l> = "Y" 

THEN 
PRINT : 

PRINT "Loading *** "FS$" *** from disk": 
IF LEFTS (U$,l) = "Y" 
THEN 

PRINT "* Data to Printer ONLY *": 
PRINT 
ELSE 
PRINT 

8 LS = " " : 

LINE INPUT #1,L$: 
IF LEFTS (T$,l) ■= "Y" 
THEN 

LPRINT TAB< €);L$: 
L = L - 1: 
IF L = 
THEN 

GOSUB 16: 
GOSUB 15 

9 PRINT L$: 

G = ASC ( LEFTS (L$,l)): 
IF G = 255 OR G = 27 

THEN 
11 

ELSE 
IF LEFTS (U$,l) = "V" 

THEN 
1J0 

ELSE 
FOR 

J = 1 TO LEN (L$): 

POKE AD, ASC ( MID$ (L$,J,1>): 

AD = AD + 1: 
NEXT : 
POKE AD, 13: 
AD = AD + 1 

10 POKE 14304, PEEK (17161 )s 
GOTO 8 

11 CLOSE : 
POKE AD,255i 
POKE AD + 1,255: 
IF AS = "N" 

THEN 

INPUT "Mount PACAL Disk and press ENTER ; 
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12 IF LEFTS (T$,l) = "Y" 

THEN 

GOSUB 15: 

IF LEFTS (U$,l) = "Y" 
THEN 

RUN "INTRO" 

13 CMD "S=PASCAL" 

14 CLS ,- 
CMD "E": 
FOR 

V = 1 TO 750: 
NEXT ; 
RESUME 3 

15 LPRINT " "; CHRS (13);" "; CHRS (13);" "; CHR$ (13 )j 
RETURN 

16 GOSUB 15: 
CLS : 

IF LEFT$ (G$,l) < > "Y" 

THEN 

RETURN 

ELSE 
INPUT "Press ENTER to continue";; 
L = LL: 
RETURN 

17 PRINT "Illegal entry. Try this part again.": 
FOR 

X = 1 TO 750; 
NEXT : 
GOTO 5 



Program Listing 3. SAVE 

1 ■ SAVE 

2 ' 

3 POKE &H40B1,&HEF: 
POKE &H4j0B2,SH73: 
CLEAR 3J00: 

CLS : 

DEFINT B - Z: 

PRINT TABC 16)"** TINY * PASCAL ** File Saver": 

PRINT 

4 INPUT "Output data to Line Printer ";T$: 
IF LEFTS (TS,D = "Y" 

THEN 

IF PEEK (14312) < > 63 
THEN 

PRINT "Line Printer NOT ready!": 
PRINT : 
GOTO 3 
ELSE . 

INPUT "What is your page leanth ;LL: 
IF LL < 7 
THEN 
4 
ELSE 
LL = LL - 6: 

L = LL: . 

INPUT "Pause between Pages" ;G$ Program continued 
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5 IF LEPT$ (T$,l) = "Y" 

THEN 

INPUT "Data to Line Printer only";U$: 
U$ = LEFTS (U$,l) 

6 INPUT "Should TABS be converted to 3 SPACES ";J$: 
IF LEFT$ (T$,l) = "Y" 

THEN 

GOSUB 22: 
IF U$ = "Y" 
THEN 
9 

7 LINE INPUT "Enter Filespec for PASCAL File: ";FS$! 
IF FS$ = "" 

THEN 

RUN "INTRO" 
ELSE 
ON ERROR GOTO 19: 
R$ = "": 

INPUT "la Destination Disk mounted on Drive" fR$: 
IF LEFTS (R$,l) = "N" 
THEN 

GOSUB 20 
ELSE 
IF RS = "X" 
THEN 
7 

8 OPEN H 0",1,FS$ 

9 AD * B.H73F0: 
PRINT : 

IF US = "Y" 
THEN 

PRINT "Putting *** "FSS" *** to Printer": 
PRINT 
ELSE 
PRINT "Saving *** "FS$" *** to disk": 
PRINT 

10 AS = ,,,, 

11 J = PEEK (AD): 
IF J = 255 

THEN 

16 
ELSE 
AD = AD + 1: 
IF AD > 32767 
THEN 

AD = AD - 65536 

12 IF J = 9 

THEN 

IF LEFTS (J$,l> = "Y" 
THEN 

A$ = A$ + STRINGS (3,32): 
GOTO 11 

13 IF J = 13 

THEN 
14 

ELSE 
AS = A$ + CHR$ (J): 
GOTO 11 

14 IF US < > "Y" 

THEN 

POKE 14304, PEEK (17161): 
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PRINT #1,A$ 

15 PRINT A$: 

IF LEFTS (T?,l) * "Y" 
THEN 

LPRINT h$: 
L = L - Is 
IF L = 
THEN 

GOSUB 23: 
GOSUB 22: 
GOTO 10 
ELSE 
10 
ELSE 

10 

16 IF U$ < > "Y" 

THEN 

PRINT #1, CHR$ <255);CHR$ (255): 
CLOSE 

17 POKE &H40B1,&HFF: 
POKE 6H4J0B2,SHBF: 

IF LEFT? (R$,l) = "N" 
THEN 

GOSUB 21 

18 RUN "INTRO" 

19 CMD "E": 
CLOSE : 
RESUME 7 

20 INPUT "Load Destination System Disk and press ENTER";: 
RETURN 

21 INPUT "Load PASCAL Disk and press ENTER"; j 
RETURN 

22 LPRINT " "f CHR$ (13);" " ; CHR$ (13);" "; CHR$ (13): 
RETURN 

23 GOSUB 22 t 
CLS t 

IF LEFT$ (G$,l) < > "Y" 

THEN 

RETURN 

ELSE 
INPUT "Press ENTER to continue";: 
L = LL: 
RETURN 



-^ 



O- jT- 
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Faster Loading 
For the Model I 

by Mark E. Tyler 



System Requirements: 

Model I 
16KRAM 

Editor/assembler 



Get tired of waiting for your Model I to load cassette programs? It's 
possible to exceed the Model I's 500-baud rate. The programs in 
this chapter show you how. 

The TRS-80 uses the double frequency encoding system for data stor- 
age. The timing in this system uses a synchronizing pulse at the start of 
each bit. The synchronizing pulse is followed by a data pulse if the bit to 
be read is a 1 , or no pulse if the bit to be read is a 0. Figure 1 shows the dif- 
ferent ways a 1 and a bit are stored on tape. 

The timing is important. The software controlling the reading looks for 
the synchronizing pulse. Once it's found, the software delays a predeter- 
mined amount of time, then looks for the data pulse. If it is there, the bit 
is considered a 1 ; if not, a 0. If noise on the tape causes the TRS-80 hard- 
ware to think there is a pulse where there is not, an error occurs. By con- 
trolling the delay times and the reading times, you can speed up the read- 
ing and writing of the tape and improve the reliability of data transfer. 

The address of the software for reading a byte of data from the tape is 
0235H in the Level II ROM. See Figure 2 for a flow diagram. The code at 
this location saves the BC and HL registers on the stack and sets up a 
loop to repeat eight times. The loop repeats eight times because data is 
read serially— one bit at a time— from the tape. The loop calls the code at 
0241H where the actual reading takes place. Once the synchronizing 
pulse is detected, the data pulse will arrive exactly one millisecond later 
(assuming a 500-bit baud rate). The timing is accomplished automatical- 
ly, because the software is written so that the time it takes to execute all 
the read instructions is one millisecond. 
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Figure 1 . No data pulse is present if bit is a 0. Timing is for 500 bits/second . 



The Z80 microprocessor used by the TRS-80 requires a definite num- 
ber of T-states to execute each instruction. A T-state is one clock cycle. In 
an unmodified TRS-80, a clock cycle is 563 nanoseconds (5.63 x 10E-7 
seconds). The instruction PUSH HL, which requires 11 T-states, would 
take 11x563, or 6,193, nanoseconds to execute. The complicated in- 
structions are the conditional branches, which require a different 
number of T-states depending on whether the condition is true or false. 
For example, the DJNZ instruction requires 13 T-states if B does not 
equal zero, but only eight if B does equal zero. 

Tape reading timing is automatic because the number of T-states has 
been accounted for by careful selection of the instructions and delay 
loops in the software. Take the code at 024 1H in the ROM. Here the BC 
and AF registers are saved on the stack, and port OFFH, the TRS-80 r s 
tape port, is checked for synchronizing pulse. Once the pulse is found, 
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critical timing starts, with a delay loop to use up some T-states. In the 
later versions of ROM, this loop takes up 1250 T-states. This important 
loop, DJNZ1, is changed when the tape speed is increased. 

Next, the code at 021EH is called. It resets the flip/flop in the TRS-80 
tape reading circuit to prepare for the possible 1 pulse from the tape. 
This code requires 82 T-states. Another delay loop, DJNZ2, is started. It 
is 1731 T-states long. After this loop, the flip/flop is checked for the pres- 
ence of a 1-bit pulse. The data, whether it is a 1 or a 0, is stored, and the 
flip/flop is reset. The program then returns to the code at 0235H. Here 
the B register is decremented and the whole process repeats until the full 
eight bits are read. 

Remember that DJNZ1 is used to control the length of time between 
detection of the synchronizing pulse and the resetting of the flip/flop in 
preparation for the possible data pulse. The flip/flop shouldn't be reset 
too soon. That causes a long time between resetting and data pulse arri- 
val, and any noise in the interval can set the flip/flop and cause a reading 
error. DJNZ2's length controls the time between resetting the flip/flop 
and checking it. Some time must be allowed for the electronics to stabi- 
lize, but too much time can cause an error. The two delay loops together 
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38 


RESET FLIP/FLOP 
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DELAY DJNZZ 

1731 















Figure 2. Tape read subroutine flow chart. Number in bottom right hand corner is number of 
T-states required to execute the indicated section. 
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control how long the software waits after the synchronizing pulse before 
it looks for a data pulse. Changing these two delay loops is the key to in- 
creasing the tape reading speed of the TRS-80. 

In order to read a tape faster, it must be written faster. The code for 
writing a byte to tape is at memory address 0264H. The byte to be writ- 
ten should be in the A register. T-states are important in this code be- 
cause timing is critical. See Figures 3A and 3B for a flow diagram of the 
software. First, the registers used by the code are saved. This includes 
the HL, BC, DE and AF registers. Next, a loop is set up to be executed 
eight times, and the byte to be written is transferred to the D register. 



C JTMT J 



save registers 



set ur itti 
•no IWI mi 

IN a RISHTIR 



CALL PULSE ROUTINE 



RUT lit TO (C 

WRITTE* INTO 
CARftV FLAQ 




CALL *UL1C SUBROUTINE 




RESTORE REGISTERS 



( RETURM j 



Figure 3A. Tape write subroutine flow chart. Numbers 
indicate number of T-states required to execute the 
indicated section. 



f START J 


I 


LQAD POSITIVE 

PUL.BE CONTROL WORD 


1 


WRIT* »UL9E 

217 


1 


L0*0 NEftATIVE 
PULSE CONTROL WORD 

10 


1 


wirite pvlsi 

ZIT 


1 


lOAC TERMINATION 
CONTROL WORD 

10 


1 


write tcrmimtor 

2 " 


\ 


Of LAV PJMZ3 

1195 


1 


( RETURN J 



Figure 3B. Pulse subroutine called from write subroutine 
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The code at 01D9H is called. This code writes the synchronizing pulse 
on the tape. The pulse is really two pulses, one after the other. The first 
pulse is positive and the second is negative. Each pulse lasts 227 T-states. 

The A register is loaded with the byte to be written, from the D regis- 
ter. The A register is then rotated left so the bit to be written is put into 
the carry flag. The shifted byte is then loaded back into the D register for 
safekeeping. The bit in the carry flag can be easily tested to see if it is a 
1 or a 0. If the carry flag is set (bit is a 1), the code continues by calling 
01D9H. If the carry flag is reset (bit is a 0), the code branches to 027EH. 

The code at 027EH is a delay loop. It is necessary because if the bit is a 
0, no data pulse is written and you have to kill some time. This is done 
with another DJNZ loop, DJNZ4, which is 1769 T-states Jong. On com- 
pletion, control transfers to 0276H. This is the same location the pro- 
gram flow returns to after writing a data pulse, if the carry flag was set. 
The one data pulse is written with a call to 01D9H, the same code that 
wrote the synchronizing pulse. 



I BIT 



227 



227 



/■ 



SYNCH PULSE 



135 * 0JNZ3 | 



s 



DATA PULSE 



132 *DJNZ3 



227 



227 



BIT 



227 



/~ 



SYNCH PULSE 



170 + DJNZ3 + DJNZ4 



227 



Figure 4. Software timing measured in T-states 
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At 01D9H, a control word is loaded into the HL register and the code at 
022 1H is called (Figure 3B). This outputs a positive pulse to the tape re- 
corder. The length of the pulse is controlled by a DJNZ loop. Another 
control word is loaded into the HL register, and the routine at 022 1H is 
called again, but this time a negative pulse is written to the tape. Its 
length is also controlled by a DNJZ loop. To terminate the negative pulse 
another control word is loaded into the HL register, and the routine at 
022 1H is called once more. Finally, another DJNZ loop, DJNZ3, is exe- 
cuted. It is important in controlling the writing time, and is 1 198 T-states 
long. After executing this loop, control transfers back to 0276H. 

The C register is decremented and checked to see if all eight bits have 
been written. If not, control goes back to 026BH, where the synchroniza- 
tion pulse is again written. If all eight bits have been written, the regis- 
ters pop off the stack, and control returns to the calling routine. Figure 4 
is Figure 1 redrawn to show the length of time, measured in T-states, for 
each part of the stored signal. DJNZ3 alone controls the timing of the 1 
bit. You can shorten the delay of DJNZ3 and increase the number of 1 
bits you can write per second. The bit is controlled by both DJNZ3 and 
DJNZ4. It is a simple matter to shorten the length of the bit so you can 
write faster. Just make sure the bit is about the same length as the 1 bit. 
They need not have exactly the same length because there is some excess 
time in the reading code, and the reading timing always starts with the 
detection of the synchronization pulse. 

Figure 5 shows how DJNZ1 and DJNZ2 control the reading time: the 
positive pulse represents the reading of the TRS-80 tape flip/ flop, and the 
negative pulses represent the resetting of the flip/flop. The figure starts 
with the detection of the synchronization pulse. The numbers represent 
the length of time, measured in T-states. By adjusting DJNZ1 and 
DJNZ2, you can control when the flip/flop is reset and how far into the 
data pulse you check for the presence of the pulse. 

By controlling these four delay loops, you control the tape writing and 



66 + DJNZI 



30 + DJNZ2 



90 



105 



Figure 5. Positive pulse represents checking status of flip/flop. Negative pulse represents 
resetting the flip/ flop. 
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reading speeds. I have done experiments at various speeds of writing 
and reading that range from the 500 bits/second standard to over 1500 
bits/second. Figure 6 is a table of the various delay times, in T-states, for 
the four DJNZ loops in the reading and writing routines. The control 
bytes to be loaded into the B register to obtain the necessary delays are in 
parentheses. 



Bits/Sec 


Total Pulse Length 


DJNZ1 


DJNZ2 


DJNZ3 


DJNZ4 


500 


3554 


1243[60H) 


1724(85H) 


1191(5CH] 


1750(87H) 


600 


2959 


1035(50H] 


1412(6DH) 


892(45H) 


1438(6FH) 


700 


2540 


879|44H) 


1204J5DH) 


684135HJ 


1230|5FH) 


800 


2228 


775(3CH) 


035(50H) 


528|29H) 


1074(53H| 


900 


1968 


671(34H) 


918(47H) 


398(1FH| 


944(49H( 


1000 


1760 


554|2BH) 


840J41H] 


294(1 7H) 


840(41H) 


1100 


1604 


476(25H) 


736(39H) 


216J11H) 


762[3BH| 


1200 


1474 


424(2 1H] 


684(35H) 


151(0CH) 


697(36H| 


1300 


1370 


372(1DH1 


645(32H| 


99(08H) 


645(32H) 


1400 


1266 


320|19H) 


593J2EH) 


47(04H) 


593J2EH) 


1500 


1188 


294(1 7H) 


489(26H| 


8(01H) 


554(2BH] 



Figure 6. Delay time constants for read and write subroutines. Numbers in parentheses are 
control bytes needed for the delay loops. 

Keep in mind when using modified tape speeds that the speed is for 
writing the bits of a byte. If you use a 1500 bit/second reading or writing 
subroutine, it does not control the length of time between bytes. The 
calling program does that. That is how you can still do all the things be- 
tween bytes that were done before. You are not really writing everything 
at the 1500 bits/second rate; if you could see the bits on the tape, you 
would see groups of eight bits spaced at 0.666 millisecond intervals and 
the 8-bit groups spaced at some other interval, dependent on the pro- 
gram calling the faster writing subroutine. 

If these high-speed routines are to be of any practical value, you must 
be able to use them to read and write both BASIC and system tapes. You 
should be able to read in existing tapes at the normal speed and write 
them again at the higher speed. You can do this with machine-language 
programs that patch themselves into BASIC ROM, giving you two new 
commands and a third, modified command. The two new commands 
are LOAD and SAVE. They operate like CLOAD and CSAVE, but at a 
higher speed. The third command is a modified SYSTEM command 
which allows system tapes to be read at normal or faster speed. Another 
program (Program Listing 4) shows how to modify John Harrell's 
ZBUG monitor \80 Microcomputing, January 1981, p. 130) to read and 
write tapes at both normal and fast speed. 

The first three programs add new commands to ROM. The LOAD and 
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SAVE commands are already reserved words in the ROM, but are used 
only on disk systems. If you try to execute the SAVE command without 
Disk BASIC, you get the L3 ERROR message. This is because Level II 
BASIC branches to RAM memory location 41A0H after a SAVE com- 
mand. A jump to the error message routine is placed there during the ini- 
tialization of this area of RAM from the MEM SIZE message. When Disk 
BASIC is loaded and initialized, it places new jump instructions at this 
and other RAM locations that patch into Disk BASIC. You can do the 
same thing with this program by placing jump instructions to the loca- 
tions of our new code. 

When the ROM encounters the SYSTEM command, a call is made to 
41E2H in RAM. Normally there is a RETurn instruction there so pro- 
gram control goes back into ROM. By placing a jump instruction here, 
you can branch to the new SYSTEM code very easily. The initialization 
portion of each program sets up all the jumps needed. 

Each program is similar to the corresponding program in ROM written 
by Microsoft, with the new read and write codes patched in. The similar- 
ity means the programs operate exactly like the corresponding BASIC 
command. The start of the code is the initialization portion of the pro- 
gram. Jump instructions are placed into the communications section of 
RAM at the correct locations for LOAD, SAVE, and SYSTEM. 

The first program (see Program Listing 1} is SAVE, which is the high 
speed equivalent of CSAVE. The first thing that SAVE does is turn on the 
recorder, by calling a ROM subroutine at 01FEH, which selects the cor- 
rect recorder and turns it on. Next, it writes 256 zeros to tape followed by 
the 0A5H marker. A call is made to 2337H in the ROM. This code looks 
for a file name. The address of the string containing the file name is in the 
HL register on returning from the subroutine. A call to 2A13H gets the 
address into the DE register. Next, the three 0D3H leader bytes are written 
on the tape, followed by the file name whose address is in the DE register. 

The DE register is set up to point to the start of the BASIC program. 
The HL register contains the address of the end of the program. The A 
register is loaded with the contents of the address in the DE register. The 
A register is written to tape using the fast writing program. The DE regis- 
ter is incremented and compared with the HL register. This procedure 
repeats until the end of the BASIC program (HL = DE). The recorder is 
turned off with a call to 01F8H, the HL and BC registers are restored, 
and control returns to ROM. 

The rest of the SAVE program involves the speeded-up write subrou- 
tine. The program defines a word called WRSP, which contains the 
DJNZ3 and DJNZ4 delay loop variables to be loaded into the B register in 
order to obtain the desired tape speed. The WRSP variable in Program List- 
ing 1 is for writing at 1000 bits/second. Use Figure 6 to select a speed. 
DJNZ4 is the most significant byte and DJNZ3 is the least significant byte of 
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WRSP. To use WRSP, load HL with the address of WRSP, then load B 
with the contents of the address pointed to by the HL register. 

The next program (Program Listing 2] is called LOAD. It loads a fast 
tape written by SAVE. First, the proper RDSP variable is created. Next, a 
check is made to see if a question mark (?) follows the LOAD command. If 
so, the load is being verified as in CLOAD? If it is a LOAD? command, a flag 
is set and saved. A LOAD command resets the flag before saving it. The file 
name is searched for, and when found, combined with the LOAD/LOAD? 
flag and stored in RAM. If this is a LOAD command, the NEW subroutine 
at 1B4DH is called. The tape recorder is turned on and the tape is read, look- 
ing for the synchronizing zeros in the leader. Once these are found, the 
LOAD/LOAD? flag and the file name to the DE register are restored. The 
three 0D3H bytes are read from the tape. The file name is read from the 
tape and compared with the one stored in the E register. If it is not right, a 
jump is made to LD4 to wait for the right file name to be read. 

After the right file name has been found, the tape is read again, look- 
ing for the next byte. If the LOAD/LOAD? flag in the D register is set, 
the byte is compared with the data in memory. If an error occurs, a 
jump is made to LD2, where the BAD message is displayed, before the 
return to BASIC at 1 A18H. If the byte was the same as in the program 
or if the LOAD/LOAD? flag is reset, the bit is saved and the free mem- 
ory pointer is updated with a call to 196CH. 

A test is made to see if the byte is a zero. If so, the star in the right hand 
corner of the screen blinks, and the process starts over, until three zeros 
are found. When that is accomplished, the READY message appears, the 
recorder is turned off, and the starting address is saved on the stack be- 
fore returning to BASIC at 1AE8H. The LOAD routine uses the READ 
and SYNCH routines following the SYSTEM program. A storage area 
called RDSP is defined, with the DJNZ1 and DJNZ2 delays already load- 
ed into them. Then the B register is loaded with these delays from the 
RDSP word. DJNZ2 is the most significant byte of RDSP and DJNZ1 is 
the least significant byte. 

The third program (Program Listing 3) is the SYSTEM code. It func- 
tions like the standard SYSTEM command, except that whenever a file 
name is specified, a short message which says (FAST/SLOW) is dis- 
played. Responding F to this message loads the RDSP word with the 
faster reading speed variable. Any other response loads the RDSP word 
with the standard 500 bit/second speed variable. The tape then reads at 
the selected speed with the same results as the regular SYSTEM 
command. 

The SYSTEM code starts by popping the return address of the calling 
program off the stack. This keeps the stack in order. Next a jump is made 
to SYSTM2, to set up a new stack pointer and skip down one line on the 
video with a call to 20FEH. The system prompt (*?) displays, and execu- 
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tion waits on input from the keyboard. This input is evaluated and a 
branch is made if the first character is a slash (/). If it is, a jump is made 
back into the ROM SYSTEM routine at 031DH. If there was no slash, 
the input is assumed to be a file name. The SPEED subroutine is called 
where the (FAST/SLOW) message is displayed, and the input is evalu- 
ated so the proper DJNZ delays are loaded into RDSP. 

The tape recorder is turned on and the synchronizing byte is looked 
for. The 55H byte is found next, followed by a search for the correct file 
name. Once it's found, the star in the top right-hand side of the screen is 
turned on or off. Another byte is then read and compared to 78H. This is 
the end of the tape flag and it branches to SYSTM 1 , where the transfer 
address is stored in 40DFH, and the recorder is turned off. The stack 
pointer is readjusted, the system prompt (*?) displays, and the program 
waits for input. 

If the 78H flag is not found, the tape is read until a 3CH is detected. 
This is followed by the number of bytes to read and the address where 
the bytes are to be stored. A checksum is set up, and the bytes are read 
from the tape and stored in the appropriate place. Once all the bytes are 
ready, the checksum is compared with the one read from tape. If they 
are different, a C displays in the upper right-hand corner of the screen, 
and the tape is scanned for the start of the next program. If the check- 
sum is right, the program branches to SYSTM5, to look for the 78H byte 
and continue from there. The SYSTEM program sequence ends by 
turning off the tape recorder and displaying the system prompt (*?). 

These three programs provide the commands to read and write fast 
BASIC tapes and to read fast system tapes, but you need a method of 
writing fast system tapes. The easiest way is to modify a monitor pro- 
gram, as in Program Listing 2. 1 chose John Harrell's ZBUG program {80 
Microcomputing, January 1981) for its very good tape copying and verifica- 
tion commands. Modification requires finding all the locations in the 
monitor where a write-from-tape or read-to-tape function occurs and sub- 
stituting calls to the new routines. You can use the ZBUG monitor to find 
these locations. The find address (A) command in ZBUG is loaded with 
one of the subroutine addresses to be searched for, followed by the area 
in memory where ZBUG resides. The addresses needed are 
0235H(READ), 0264H{WRTAPE), 0287H(WSYNCH), 0214H(RDBIT) 
and0296H(SYNCH). Once found, the address portion of the call instruc- 
tions is changed to point to the appropriate new subroutine patched in at 
the end of ZBUG. Some editor/assembler programs make the address 
changing easier because they have a macro command. The EDTASM + 
program allows the use of macros. In Program Listing 2, the macro NEW 
is defined with variables #ADD and #NAME. The macro is simply ORG 
#ADD, followed by CALL #NAME, and is used 43 times to set up all the 
necessary patches. 
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In Program Listing 4, TAPE is the subroutine that prints an F/S message 
after the selected ZBUG command. It accepts a one letter response. An F 
response loads the WRSP and RDSP words with the high-speed DJNZ var- 
iables. Any other response loads the words with the regular speed vari- 
ables. The COPY and WRITE subroutines in Program Listing 4 are neces- 
sary because these ZBUG commands need slightly different processing 
than the others. 

These programs can also be assembled on an editor/assembler like ED- 
TASM + . Program Listings 1-3 reside in upper memory and are shown at 
7E00H f or a 1 6K machine. This is a multiple-origin set of programs. Only 
the origin indicated in the comments on each program should be 
changed when relocating the program. Once the programs have been 
entered and debugged, save them to tape. They can then be loaded un- 
der the SYSTEM command. Always load Program Listing 1 last, because 
there the changes to the RAM addresses for SYSTEM, LOAD and SAVE 
are made. If Program Listing 1 is loaded before Program Listing 3, the SYS- 
TEM command jumps to the new address, but there is no program there. 
No initialization of the programs is necessary, so control returns to BASIC 
with a slash (/) ENTER after the last part is loaded under the SYSTEM 
command. You have the three new commands in your Level II BASIC un- 
til you return to the memory size question, when you must enter the pro- 
grams again. Be sure to protect sufficient memory (32255) when answer- 
ing the memory size question. 

Program Listing 4 can be entered by using an editor/assembler that sup- 
ports macros, such as Microsoft's Editor/Assembler + . Once ZBUG (or a 
similar monitor) has been modified, it can make copies of itself at slow or 
fast speed. You can use it to read any SYSTEM tape at 500 baud, and write 
it to tape at a higher speed using the COPY (,) command. Using the 1000 
bit/ second loading speed can decrease your loading time by more than 
half. 

Cautions 

Higher speed tapes are more sensitive to the volume control setting. 
Usually it must be turned down when you load them. Once the proper 
setting is found, the tapes load very reliably; however, reliability de- 
creases as speed increases. I believe that the volume control problem 
could be easily overcome with the addition of a pulse-shaping device 
such as The Data Dubber from the Peripheral People, or a similar 
device. 

The slow DJNZ delays used in both listings are from the new Level II 
ROM with its improved tape loading features. Some commercial tapes 
will not load using these delays. This has been true for system tapes 
more than BASIC tapes. The easiest way to fix the problem is to use the 
old delays from the original ROM. This would mean changing DJNZ1 to 
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41H, and DJNZ2 to 76H. After you have made a copy of the troublesome 
tape, it can be read more reliably using the new delays already in the 
programs. 



Program Listing 1. SAVE 





00010 
00020 


LISTING I 






00030 


FSTAPE VER 1.2 






00040 
00050 
00060 


BY MARK TYLER 














00070 










00030 








41A0 


00090 


ORG 


41A0H 


rSET UP 


41A0 C3007E 


00100 


JP 


SAVE 


r'SAVE' VERB 


4168 


00110 


ORG 


4138H 


;SET UP 


4188 C37E7E 


00120 


JP 


LOAD 


;'LOAD' VERB 


41E2 


00130 


ORG 


41E2H 


•SET UP 


41E2 C3117F 


00140 
00150 
00160 
00170 
00130 
00190 


JP 


SYSTEM 


; 'SYSTEM' MODIFICATION 


7E00 


00200 t 
00210 


1EM0RY DEFL 


7E00H 


r CHANGE THIS ADDRESS ONLY 
rTO RELOCATE 


0000 


00220 DIS DEFL 


MEMORY- 


7E00H 


7E00 


00230 
00240 
00250 
00260 ; 
00270 ; 


ORG 


MEMORY 








SAVE 






00280 ; 


1000 


BIT/SEC VERSION 




00290 ; 
00300 


















00310 










00320 








7E00 CD2D7E 


00330 £ 
00340 


.AVE CALL 


WSYNCH 


;TURN ON CASSETTE 
;AND WRITE HEADER 


7E03 CD3723 


00350 
00360 


CALL 


2337H 


; EVALUATE REST OF 
;'SAVE' COMMAND 


7E06 C5 


00370 


PUSH 


BC 


;SAVE REGISTER 


7E»7 E5 


00380 


PUSH 


HL 


;SAVE ADD OF FILE NAME 


7E08 CD132A 


00390 


CALL 


2A13H 


fPUT ADD IN 'DE' REGISTER 


7E0B 3ED3 


00400 


LD 


A.0D3H 


•WRITE THE THREE 


7E0D 0603 


00410 


LD 


B,03 


rLEADER BYTES 


7E0P CD3A7E 


00420 


CALL 


WRITE 


rON TAPE 


7E12 10FB 


00430 


DJNZ 


5-3 




7E14 1A 


00440 


LD 


A, (DE) 


fFILE NAME TO 'A' RBGISTEf 


7 El 5 CD3A7E 


00450 


CALL 


WRITE 


•WRITE IT ON TAPE 


7E18 2AA440 


00460 


LD 


HL, (40A4H) .-POINTER TO BEGINNING 


7E1B EB 


00470 


EX 


DE,HL 


•OF BASIC PROGRAM TO 'DE' 


7E1C 2AF940 


00480 


LD 


HL,{40F9H) ;END OF BASIC PROGRAM 




00490 






; POINTER TO 'HL' REGISTER 


7E1F 1A 


00500 


LD 


A,(DE) 


;GET NEXT BYTE 


7E20 13 


00510 


INC 


DE 


;STEP POINTER 



Program continued 
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7E21 CD3A7E 
7E24 DF 
7E25 20F8 
7E27 CDF801 
7E2A El 
7E2B CI 
7E2C C9 

7E2D CDFE01 
7E30 06FF 
7E32 AF 
7E33 CD3A7E 
7E36 10FB 
7E38 3EA5 

7E3A E5 
7E3B C5 
7E3C D5 
7E3D F5 
7E3E 0E08 
7B40 57 
7B41 CD5D7E 
7E44 7A 
7E45 CB07 

7B47 57 
7E4S 300B 
7B4A CD5D7E 
7E4D 0D 
7E4E 20F1 
7E50 Fl 
7E51 Dl 
7E52 CL 
7E53 El 
7E54 C9 



7E55 

7E58 

7E59 

7E5B 

7E5D 

7E60 

7E63 

7E65 

7E67 

7E6A 

7E6D 

7E6F 

7E71 

7E74 

7E77 

7E7A 

7E7B 

7E7D 



21FD7F 

46 

10FE 

18F0 

2101FC 

CD2102 

060B 

10FE 

2102FC 

CD2102 

060B 

10FE 

210OPC 

CD1102 

21FC7F 

46 

10FE 

C9 



00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 
00860 

00870 
00880 WR4 



7E7E 
7F11 
7FFC 

1A19 



CALL 

RST 

JR 

CALL 

POP 

POP 

RET 

WSYNCH CALL 
LD 
XQR 
CALL 
DJNZ 
LD 



WRITE 



WR2 



WR3 



00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 

01110 

01120 

01130 



WR5 



PUSH 

PUSH 

PUSH 

PUSH 

LD 

LD 

CALL 

LD 

RLC 

LD 

JR . 

CALL 

DEC 

JR 

POP 

POP 

POP 

POP 

RET 

LD 

LD 

DJNZ 

JR 

LD 

CALL 

LD 

DJNZ 

LD 

CALL 

LD 

DJNZ 

LD 

CALL 

LD 

LD 

DJNZ 

RET 



WRITE 

18H 

NZ.S-6 

01F8H 

HL 

BC 



01FEH 

B.0FFH 

A 

WRITE 

5-3 

A,0A5H 

HL 

BC 

DE 

AF 

C,8 

D,A 

WR5 

A,D 

A 

D,A 

SC,WR4 

WR5 

C 
NZ.WR2 

AF 
DE 
BC 

HL 



;WRITE BYTE TO TAPE 
.•COMPARE 'HL' AND 'DE' 
; AGAIN IF 'DE 'O'HL ' 
;TURN OFF CASSETTE 
; RESTORE REGISTERS 

;GO BACK TO BASIC 

;TURN ON CASSETTE 

• WRITE 255 

; ZEROES 

j TO TAPE 

;DONE YET 7 

;WRITE SYNCH BYTE FIRST 

;SAVE NEEDED REGISTERS 



j COUNTER FOR 8 BITS 
jSAVE BYTE TO BE WRITTEN 
.•WRITE SYNCH PULSE TO TAPE 
rRETURN BYTE TO 'A' REG- 
; ROTATE BIT TO BE WRITTEN 
;TO CARRY FLAG 
jSAVE IN 'D' AGAIN 
•GO IF BIT IS ZERO 
;WRITE A ONE BIT 
jADJUST THE COUNTER 
rAGAIN IF 'C'<> 
.•RESTORE REGISTERS 



fRETUBN TO CALLING PROGRAM 



HL.WRSP+1 

B, (HL) ?GET DJNZ4 

$ ;DELAY AWHILE 

WR3 ;GO BACK TO MAIN PROGRAM 

HL,0FC01H j POSITIVE CONTROL WORD 

0221H ; WRITE POSITIVE PULSE 

B,0BH ;DELAY 

$ ; AWHILE 

HL.0FC02H ;NEGATIVE CONTROL WORD 

0221H ; WRITE NEGATIVE PULSE 

B,0EH ; DELAY 

$ ; AWHILE 

HL.0FC00H ; TERMINATOR CONTROL WORD 

021 1H ; WRITE TEFMINATOR 

HL.WRSP ;GET DJNZ3 

B,(HL) 

$ ;DELAY AWHILE 

;RETURN TO CALLING PROGRAM 



; FSTAPE PROGRAM DEFINITIONS 
LOAD EQU 7E7EH+DIS 
SYSTEM EQU 7F11H+DIS 
WRSP EQU 7FFCH+DIS 



END 



1A19H 
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Program Listing 2. LOAD 





00600 




00605 




00610 




00615 


7E00 


00620 




00625 




00630 




00635 


0000 


00640 


7E7E 


00645 




00650 




00655 




00660 




00665 




00670 




00675 




00680 


7E7E E5 


00690 


7E7F 212B41 


00695 


7E82 22FE7F 


00700 


7E85 El 


00705 


7E86 D6B2 


00710 


7E88 2802 


00715 


7E8A AF 


00720 


7EBB 012F23 


00725 




00730 


7E8E F5 


00735 


7E8F 7E 


00740 


7E90 B7 


00745 


7E91 2807 


00750 


7E93 CD3723 


00755 


7E96 OD132A 


00760 


7E99 1A 


00765 


7E9A 6F 


00770 


7E9B Fl 


00775 


7E9C B7 


00780 


7E9D 67 


00785 


7E9E 222141 


00790 


7EA1 CC4D1B 


00795 


7EA4 210000 


00800 


7EA7 CD807F 


00805 




00810 


7EAA 2A2141 


00815 


7EAD EB 


00820 


7EAE 0603 


00825 


7EB0 CD967F 


00830 


7EB3 D6D3 


00835 


7EB5 20F7 


00840 


7EB7 10F7 


00845 


7EB9 CD967F 


00850 


7EBC 1C 


00855 


7EBD ID 


00860 


7EBE 2803 


00865 


7EC0 BB 


00870 


7BC1 2037 


00875 


7EC3 2AA440 


00880 




00885 


7BC6 0603 


00890 




00895 



; ********* FgrAPE PART 2 VER 1.2 ********* 
. ********* gy MARK TYLER ********* 



MEMORY DEFL 7E00H ; CHANGE ONLY THIS ADDRESS 
;TO RELOCATE 



DIS 



DEFL MEMDRY-7B00H 
ORG 7E7EH+DIS 



LOAD 
1000 BIT/SEC VERSION 



LOAD PUSH HL ;SAVE REGISTER 

LD HL,412BH ;DJNZ1 AND DJNZ2 

LD (RDSP),HL ;INTO RDSP 

FOP HL fRESTORE REGISTER 

SUB 0B2H ;TEST FOR LOAD? 

JR Z,$+4 ;JUMP IF LOAD? 

XOR A ;SET UP LOAD FLAG 

U) BC.232FH ;USE 2ND AND 3RD BYTES 

;TO CPL AND INC *HL' 

PUSH AF ;SAVE FLAG 

LD A, (HL) ;GET FILE NAME IF THERE 

OR A ;ZEBO 'A' IF NO FILE NAME 

JR Z.5+9 ;JUMP IF NO FILE NAME 

CALL 2337H ; EVALUATE FILE NAME 

CALL 2A13H ;FILE NAME ADD INTO 'DE' 

LD A, (DE) ; PUT FILE NAME 

LD L,A ;INTO 'L' REGISTER 

POP AF ;GET BACK LOAD/LOAD? FLAG 

OR A ;SET A ACCORDING TO FLAG 

LD H,A ;SAVE IN 'H' REGISTER 

LD (4121H),HL ;SAVE IN RAM 

CALL 2,1B4DH ;CALL 'NEW' IF FLAG RESET 

LD HL.0000H {CASSETTE CONTROL WORD 

CALL SYNCH {TUFN ON CASSETT AND 

;FIND 0A5H BYTE 

LD HL, (4121H) rRESTORE LD/LD? FLAG 

EX DE.HL ;PUT IN 'DE* REGISTER 

LD3 LD B,03H ;SET UP LOOP 

CALL READ ;TO LOOK FOR THREE 

SUB 0D3H ;0D3H BYTES 

JR NZ,LD3 ;JUMP IF NOT 0D3H 

DJNZ $-7 ;DO UNTIL FOUND 

CALL READ ;READ FILE NAME 

INC E ;USER SPECIFIED NAME? 

DEC E ;SET FLAG IF NAME EXIST 

JR Z,$+5 ;JUMP IF NO FILE NAME 

CP E ;OOWARE TO CALLER'S NAME 

JR NZ,LD4 ;WAIT UNTIL NAME IS FOUND 

LD HL, (40A4H) {BASIC PROGRAM POINTER 

; TO 'HL' REGISTER 

LD B,03H ;NEED THREE ZEROES FOR 

;EMD OF FILE 

Program continued 
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7EE8 CD967F 


00900 LDl 


CALL 


READ ;READ A BOTE 


7ECB 5F 


00905 


LD 


E,A jSAVE IN 'E 1 REGISTER 


7ECC 96 


00910 


SUB 


(HL) r COMPARE WITH PB3GRAM 


7ECD A2 


00915 


AND 


D ; AND WITH LOAD/LOAD? FLAG 


7ECE 2021 


00920 


JR 


NZ.LD2 ;PRINT ERROR MESSAGE 




00925 




;IF MISMATCH 


7ED0 73 


00930 


LD 


(HL),E ;OTHERWISE SAVE BYTE 


7ED1 CD6C19 


00935 


CALL 


196CH ; ADJUST FREE MEMORY PT. 


7ED4 7E 


00940 


ID 


A,(HL) ;TEST BIT 


7 EDS B7 


00945 


OR 


A ;FOR A ZERO 


7ED6 23 


00950 


INC 


HL ;ADJUST 'HL' 


7ED7 20ED 


00955 


JR 


NZ,$-17 ;LOOP IF NOT ZERO 


7ED9 CD2C02 


00960 


CALL 


022CH ; BLINK '*' 


7EDC 10EA 


00965 


DJNZ 


LDl jNEED THREE ZEROES 


7EDE 22F940 


00970 


LD 


(40F9H),HL ;SAVE END OF PROGRAM 




00975 




.-ADDRESS IN RAM 


7EE1 212919 


00980 


LD 


HL.1929H t 'READY' MESSAGE ADD 


7EE4 CDA728 


00985 


CALL 


28A7H : DISPLAY MESSAGE 


7EE7 CDF801 


00990 


CALL 


01F8H ;TUBN OFF CASSETTE 


7EEA 2AA440 


00995 


LD 


HL, (40A4H) ; STARTING ADD OF 


7EED E5 


01000 


PUSH 


HL jPROGRAM TO STACK 


7EEE C3E81A 


01005 
01010 


JP 


1AE8H fRETURN TO BASIC 


7EF1 210C7F 


01015 LD2 


LD 


HL.MSG1 ; 'HL'-^RROR MESSAGE ADD 


7EF4 CDA728 


01020 


CALL 


28A7H ; DISPLAY MESSAGE 


7EF7 C3181A 


01025 


JP 


1A18H ; RETURN TO BASIC 


7EPA 323E3C 


01030 LD4 


LD 


(3C3EH),A ;SAVE FILE NAME 


7EFD 0603 


01035 LD5 


LD 


B,03H ; SEARCH FOR 


7 EFT CD967F 


01040 LD6 


CALL 


READ fTOREE ZEROES 


7F02 B7 


01045 


OR 


A ;DO UNTIL 


7F03 20F3 


01050 


JR 


NZ.LD5 ;YOU FIND 


7F05 10F8 


01055 


DJNZ 


LD6 ;THREE IN A ROW 


7F07 CD837F 


01060 


CALL 


SYNCttt-3 ; START READING TAPE AGAIN 


7F0A 18A2 


01065 
01070 


JR 


LD3 r CONTINUE 


7F0C 42 


01075 MSG1 


DEFM 


'BAD' ;ERROR MESSAGE 


7F0F 0D 


01080 


DEFB 


0DH 


7F10 00 


01085 
01090 
01095 


DEFB 


00H 




01100 ; FSTAPE PROGRAM DEFINITIONS 


7FFE 


01105 RDSP 


EQU 


7FFEH+-DIS 


7F30 


01110 SYNCH 


EQU 


7F80H+DIS 


7F96 


01115 READ 


EQU 


7F96H+OIS 




01120 








01125 






1A19 


01130 


END 


1A19H 



Program Listing 3. SYSTEM 



7E00 



0000 
7F11 



01200 ;********* FSTAPE PART 3 VER 1.2 ********* 



BY MARK TYLER 



********* 



01205 .********* 

01210 

01215 MEMORY DEFL 7E00H ;C3«NGE THIS ADDRESS ONLY 

01220 ;TO RELOCATE 

01225 

01230 DIS DEFL MEMDRY-7E00H 

01235 ORG 7FUH+DIS 
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7F11 
7P12 
7F14 
7F17 
7F1A 
7F1D 
7F20 
7F23 
7F25 
7F28 
7F2B 
7F2E 
7F2F 
7F32 
7F34 
7F37 
7F3A 

7F30 
7F40 
7F42 
7F44 
7F46 
7F47 
7F48 
7F4A 
7F4D 
7F4E 
7F50 
7F51 
7F53 
7F56 
7F59 
7F5B 
7F5D 
7F5F 



El 

1809 

CDE77F 

22DF40 

CDF801 

318842 

CDFE20 

3E2A 

CD2A03 

CDB31B 

DACC06 

D7 

CA9719 

PE2F 

CA1D03 

CDC67F 

CD607F 

CD967F 

FE55 

20E9 

0606 

7E 

B7 

2809 

CD967F 

BE 

20ED 

23 

10F3 

CD2O02 

CD967F 

FE78 

28B7 

FE3C 

20F5 



j7F61 CD967F 
7F64 47 
7F65 ODE77F 



7F68 85 
7P69 4F 

7F6A CD967F 
7F6D 77 
7F6E 23 
7F6F 81 
7F70 4F 
7F71 10F7 
7F73 CD967F 
7F76 B9 
7F77 28DA 
7F79 3E43 



01240 
01245 
31250 
01255 
01260 
01265 
01270 
01275 
01280 
01285 
01290 
01295 
01300 
01305 
01310 
01315 
01320 
01325 
01330 
01335 
01340 
01345 
01350 
01355 
01360 
01365 
01370 
01375 
01380 
01385 
01390 
01395 
01400 
01405 
01410 
01415 
01420 
01425 
01430 
01435 
01440 
01445 
01450 
01455 
01460 
01465 
01470 
01475 
01480 
01485 
01490 
01495 
01500 
01505 
01510 
01515 
01520 
01525 
01530 
01535 
01540 



SYSTEM 
1000 BIT/SEC VERSION 



SYSTEM POP 
JR 

SYSTM1 CALL 
ID 
CALL 

SYETCM2 LD 

CALL 

LD 

CALL 

CALL 

JP 

RST 

JP 

CP 

JP 

CALL 

CALL 

SYSTM3 CALL 
CP 
JR 
LD 

SYSTM4 LD 
OR 
JR 
CALL 
CP 
JR 
INC 
DJNZ 

SYSTM5 CALL 

SYSTM6 CALL 
CP 
JR 
CP 
JR 

CALL 

LD 

CALL 

ADO 
LD 

SYSTM7 CALL 
LD 
INC 
ADD 
LD 
DJNZ 
CALL 
CP 
JR 
LD 



HL ;K£EP STACK IN ORDER 

SYSTM2 ; CONTINUE 
RDHL ;GET TRANSFER ADD 

(40DFH),HL ;SAVE IN RAM 
01F8H ;TUHN OFF TAPE 
SP.4288H ;SET UP NEW STACK 
20FEH fSKIP DOWN ONE LINE 
A.2AH ;'*' TO A REGISTER 
032AH ; DISPLAY STAR 
1BB3H ;WAIT ON INPUT 
C,06CCH ;JUMP IF BREAK KEY 
10H ;L0OK FOR '/' 

Z,1997H ;JUMP TO SN ERROR 
2FH ;COMPARE TO '/' 

Z,031DH ;JUMP BACK TO RAM IF '/' 
SPEED ;GET SPEED WANTED 
SYNCH ;START CASSETTE AND 

;FIND 0A5H BYTE 
READ ;READ NEXT BYTE 

55H jLOOK FOR 55H BYTE 

NZ,SYSTM3 ;DO UNTIL YOU FIND IT 
B,06H ;LOOK FOR 
A, (HL) ?6 LETTER 
A ;FILE NAME 

Z,SYSTM5 ;POINTED TO 
READ ;BY 'HL' REGISTER 

(HL) fAND COMPARE 

NZ,SYSTM3 rJUMP IF NOT THE SAME 
HL :DO UNTIL 

SYSTM4 jMATCH IS MADE 
022CH ;BLINK '*' 
READ ;READ NEXT BYTE 

78H f COMPARE WITH 78H 

Z,SYSTM1,-JUMP IF MATCH 
3CH ; COMPARE WITH 3CH 

NZ,SYSTM6 ,-DO UNTIL 3CH OR 

,-78H FOUND 
READ ,-GET 4 OF BYTES TO LOAD 

B,A ;SAVE IN 'B' REGISTER 

RDHL ,-READ NEXT 2 BYTES AND 

;PUT INTO 'HL' REGISTER 

,-START CHECK SUM 



A,L 
C,A 

READ 

(HL),A 

HL 

A,C 

C,A 

SYSTM7 

READ 

C 

Z,SYSTM5 



;READ NEXT BYTE 
; STORE IT 

; ADJUST STORAGE ADD 
;USE FOR CHECK SUM 
;SAVE NEW CHECK SUM 
;ARE ALL BYTES READ? 
;READ CHECK SUM 
.•COMPARE WITH OUR'S 
?GO IF MATCH 



A,43H ;LOAD A WITH *C 
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7F7B 32003D 


01545 


LD 


(3D00H), 


A J AND DISPLAY 


7F7E 18D6 


01550 
01555 


JR 


SYSTM6 


; CONTINUE 


7F30 CDFE01 


01560 SYNCH 


CALL 


1FEH 


;TURN ON CASSETTE 


7F83 E5 


01565 


PUSH 


HL 


fSAVE 'HL' 


7F84 AF 


01570 


XDR 


A 


;LOAD A WITH '0' 


7FB5 CDA27F 


01575 


CALL 


RDBIT 


;READ FROM TAPE 


7F88 FEA5 


01580 


CP 


0A5H 


;IS IT 0A5H BYTE? 


7F8A 20F9 


01585 


JR 


NZ,$-5 


;N0 — KEEP TRYING 


7F8C 3E2A 


01590 


LD 


A,2AH 


; '*' TO A REGISTER 


7F8E 323E3C 


01595 


LD 


(3C3EH), 


A ;AND DISPLAY 


7F91 323F3C 


01600 


LD 


(3C3FH), 


A fON VIDEO 


7F94 El 


01605 


POP 


HL 


; RESTORE 'HL' 


7F95 C9 


01610 
01615 


RET 




;RETURN TO CALLER 


7F96 C5 


01620 READ 


PUSH 


BC 


•SAVE REGISTERS 


7F97 E5 


01625 


PUSH 


HL 


;USED 


7F9S 0608 


01630 


LD 


B,8 


;READ 8 BITS PER BYTE 


7F9A GDA27F 


01635 


CALL 


RDBIT 


;READ ONE BIT FROM TAPE 


7F9D 10FB 


01640 


DJNZ 


S-3 


;READ ALL EIGHT BITS 


7F9F El 


01645 


POP 


HL 


; RESTORE 


7FA0 CI 


01650 


POP 


BC 


.•REGISTERS 


7FA1 C9 


01655 
01660 


RET 




; RETURN TO CALLER 


7FA2 C5 


01665 RDBIT 


PUSH 


BC 


;SAVE NEEDED 


7FA3 F5 


01670 


PUSH 


AF 


(■REGISTERS 


7FA4 DBFF 


01675 


IN 


A,(0FFH) 


;LOOK FOR 


7FA6 17 


01680 


RLA 




;SYNCH PULSE 


7FA7 30FB 


01685 


JR 


NC,$-3 


;DO UNTIL FOUND 


7FA9 21FE7F 


01690 


LD 


HL.RDSP 


;GET DJNZ1 


7FAC 46 


01695 


LD 


B,(HL) 


;AND USE IT 


7 FAD 10FE 


01700 


DJNZ 


$ 


;FDR A DELAY 


7FAF CD1E02 


01705 


CALL 


21EH 


.■RESET FLIP/FLOP 


7FB2 21FF7F 


01710 


LD 


HL.RDSP+1 ;GET DJNZ2 


7FB5 46 


01715 


LD 


B,{HL) 


;AND USE IT 


7FB6 10FE 


01720 


DJN2 


$ 


;FOR A DELAY 


7FB8 DBFF 


01725 


IN 


A, (0FFH) 


; CHECK FLIP/FLOP 


7FBA 47 


01730 


LD 


B,A 


;SAVE IN 'B' 


7FBB Fl 


01735 


POP 


AF 


;AND ON STACK 


7FBC CB10 


01740 


RL 


B 


;CHECK TO SEE IF 


7FBE 17 


01745 


RLA 




(•PULSE WAS FOUND 


7FBF F5 


01750 


PUSH 


AF 


;SAVE ON STACK 


7FC0 CD1E02 


01755 


CALL 


21EH 


; RESET FLIP/FLOP 


7FC3 Fl 


01760 


POP 


AF 


;RESTORE 


7FC4 CI 


01765 


POP 


BC 


; REGISTERS 


7FC5 C9 


01770 
01775 


RET 




;RETURN TO CALLER 


7PC6 E5 


01780 SPEED 


PUSH 


HL 


;SAVE 'HL' 


7FC7 21F07F 


01785 


ID 


HL,MSG2 


; DISPLAY 


7FCA CDA728 


01790 


CALL 


28A7H 


rPROMPT 


7FCD CD4900 


01795 


CALL 


049H 


;WAIT ON KEYBOARD INPUT 


7FD0 FE46 


01800 


CP 


'F' 


;COMPARE WITH 'F' 


7FD2 2808 


01805 


JR 


Z,FAST 


;GO IF MATCH 


7FD4 216085 


01810 


LD 


HL,8560H 


;SLOW RDSP 


7FD7 22FE7F 


01815 


LD 


(RDSP),HL ;VARIABLE 


7FDA 1806 


01820 


JR 


PT1 


f CONTINUE 


7FDC 212B41 


01825 FAST 


LD 


HL,412BH 


;FAST RDSP 


7FDF 22FE7F 


01830 


LD 


(RDSP),HL .-VARIABLE 


7FE2 CDFE20 


01835 PT1 


CALL 


20FEH 


;SKIP DOWN ONE LINE 


7FE5 El 


01840 


POP 


HL 


;RESTORE 'HL' 


7FE6 C9 


01845 


RET 




;RETORN TO CALLER 
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7FE7 CD967F 
7FEA. 6F 
7FEB CD967F 
7FEE 67 
7FEF C9 

7FF0 28 

7FFC 1741 

7FFE 2S41 

1A19 



01850 

01855 RDHL 

01860 

01865 

01870 

01875 

01880 

01885 MSG2 

01890 

01895 WBSP 

01900 

01905 

01910 

01915 

02920 



CALL 

LD 

CALL 

LD 

RET 



READ 
L,A 
READ 
H,A 



READ NEXT Bins 
STORE IN *L' 
READ NEXT BYTE 
STORE IN 'H' 
RETURN TO CALLER 



DEFM ' (PAST/SLOW) " " 



RDSP 



DEEW 4117H 
DEFW 412BH 



1000 BITS PER SECOND 
DJNZ4 AND DJNZ3 
1000 BITS PER SECOND 
DJNZ2 AND DJNZ1 



END 



1A19H 



Program Listing 4. ZBUG Modification 



0Q010 , 


.._ . x - r — T —^-- m --,,-,. .. '| e X i' ■ ■■ •■-< *■ .= ■■■=■« 


00020 


LISTING 4 


00030 


ZBUG MODIFICATION VER . 1 . 2 


00040 


1000 BITS PER SECOND 


00050 
00060 
00070 


m MARK TYLER 




00080 




00085 
00087 


> MACROS (such as EOTASM*) 


* — — — — — -■■ "- 


00090 




00100 


SET UP MACRO TO Oi\NGE 


00110 


; CALLS TO ROM 


00120 




00130 




00140 1 


<IEW MACRO #ADD, #NAME 


00150 


ORG 4ADD 


00160 


CALL #NAME 


00170 


ENDM 


00180 


NEW 4543H.TAPE 


00190 


NEW 459FH,WRITE 


00200 


NEW 4653H.TAPE 


00210 


NEW 4751H.TAPE 


00220 


NEW 47C9H.COPY 


00230 


NEW 45CCH,WSYNCH 


00240 


NEW 47DFH,WSYNCH 


00250 


NEW 454AH, SYNCH 


00260 


NEW 4663H, SYNCH 


00270 


NEW 4761H, SYNCH 


00280 


NEW 45D1H,WRTAPE 


00290 


NEW 45DAH,WRTAPE 


00300 


NEW 45EEH , WRTAPE 


00310 


NEW 45F3H.WRTAPE 


00320 


NEW 45F7H, WRTAPE 


00330 


NEW 45FBH, WRTAPE 


00340 


NEW 4601H.WRTAPE 


00350 


NEW 460AH.WRTAPE 


00360 


NEW 4618H, WRTAPE 


00370 


NEW 4610LWFTAPE 


00380 


NEW 4620H, WRTAPE 
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00390 


NEW 


4624H.WRTAPE 


00400 


NEW 


462AH, WRTAPE 


00410 


NEW 


4633H,WRTAPE 


00420 


NEW 


4638H, WRTAPE 


00430 


NEW 


463FH,WRTAPE 


00440 


NEW 


4643H, WRTAPE 


00450 


NEW 


47F6H, WRTAPE 


00460 


NEW 


4550H,READ 


00470 


NEW 


4557H,READ 


00430 


NEW 


4562H,READ 


00490 


NEW 


456CH,READ 


00500 


NEW 


4573H, READ 


00510 


NEW 


457<S,READ 


00520 


NEW 


466AH,READ 


00530 


NEW 


4674H,READ 


00540 


NEW 


467FH.READ 


00550 


NEW 


4689H,READ 


00560 


NEW 


469EH.READ 


00570 


NEW 


46A5H,READ 


00580 


NEW 


480Ffl,R£AD 


00590 


NEW 


434EH,READ 


00600 


NEW 


4852H,READ 


00610 








00620 








00630 WRCMD 


BOJ 


4AA8H 


THESE ARE THE 


00640 oercH 


BQU 


0049H ; 


ADDRESSES NEEDED 


00650 OUTSTR 


EQU 


28A7H ; 


FOR SUBROUTINE CALLS 


00660 SETUP2 


EQU 


te&m ; 


TO ROM OR ZBUG 


00670 








00680 


ORG 


4F20H 


STORE OUR PATCHES 


00690 




, 


STARTING HERE 


00700 








00710 WSYNCH 


LD 


B,0FFH 


SET UP LOOP 


00720 


XOR 


A 


TO WRITE 256 


00730 


CALL 


WRTAPE ; 


0'S TO TAPE 


00740 


DJNZ 


$-3 


FOLLOWED BY 


00750 


LD 


A,0A5H 


0A5H BYTE 


00760 WRTAPE 


PUSH 


HL 


SAVE NEEDED 


00770 


PUSH 


BC 


REGISTERS 


00780 


PUSH 


DE 


THEN SOT UP 


00790 


PUSH 


AF 


TO WRITE 


00800 


LD 


C,8 


8 BITS PER BYTE 


00810 


LD 


D,A 


STORE BYTE TO BE 


00820 






WRITTEN IN 1 A* 


00830 LP2 


CALL 


PULSE 


•WRITE SYNCH PULSE 


00840 


LD 


A,D 


RESTORE BYTE TO BE 


00850 






WRITTEN TO 'A' 


00860 


RLCA 




ROTATE BIT TO BE WRITTEN 


00870 






•TO CARRY FLAG 


00880 


LD 


D,A 


SAVE ROTATED BYTE IN 'D' 


00890 


JR 


NC,LP4 


JUMP IF CARRY FLAG RESET 


00900 


CALL 


PULSE 


■WRITE DATA PULSE 


00910 LP3 


DEC 


C 


■HAVE WE WRITTEN 


00920 


JR 


NZ,LP2 


■ALL 8 BITS ? 


00930 


POP 


AP 


■IF SO 


00940 


POP 


DE 


; RESTORE ALL 


00950 


POP 


BC 


rTHE REGISTERS 


00960 


POP 


HL 




00970 


BET 




■RETURN TO CALLER 


00980 








00990 LP4 


LD 


HL,WRSP+ 


1 ;GET DJNZ4 
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PULSE 



01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 

01110 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 READ 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 RDBIT 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 

01500 

01510 SYNCH 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 



LD 

DJNZ 

JR 

LD 

GALL 

LD 

DJNZ 

LD 

CALL 

LD 

DJNZ 

LD 

CALL 

LD 

LD 

DJNZ 

RET 

PUSH 

PUSH 

LI) 

CALL, 

DJNZ 

POP 

POP 

RET 

PUSH 

PUSH 

IN 

RLA 

JR 

LD 

LD 

DJNZ 

CALL 

LD 

LD 

DJNZ 

IN 

LD 

POP 

RL 

RLA 

PUSH 

CALL 

POP 

POP 

RET 

PUSH 

XOR 

CALL 

CP 

JR 

LD 

LD 

LD 

POP 

RET 



B, (HL) ;AND WASTE 
$ ;SOME TIME 
LP3 ;GO BACK TO MAIN PROGRAM 

HL,0FC01H ; POSITIVE CONTROL WORD 

022 1H ;WRIT POSITIVE PULSE 

B,0BH ; DELAY 

$ ;138 'T' STATES 

HL,0FC02H ;NEGATIVE CONTROL WORD 

0221H ; WRITE NEGATIVE PULSE 

B.0BH ; DELAY 

$ ;138 'T 1 STATES 

HL.0PC00H .-TERMINATOR CONTROL WDRD 

0221H ; WRITE TERMINATOR 

HL.WRSP ;GET DJNZ3 

B, (HL) ;AND DELAY 

$ ; AWHILE 

; RETURN TO CALLER 

BC ;SAVE REGISTERS 

HL ;USED 

B,38H ;READ 8 BITS PER BYTE 

RDBIT ;RSAD 1 OF THE BITS 

$-3 ;DONE 8 TIMES? 

HL ; RESTORE 

BC ; REGISTERS USED 

; RETURN TO CALLER 

BC ;SAVE NEEDED 

AF ; REGISTERS 

A, (0FFH) ;LOOK FOR 

; SYNCH PULSE 
NC,S-3 ;DO UNTIL FOUND 
HL.RDSP ;GET DJNZ1 
B, (HL) ;AND DELAY 
$ ; AWHILE 

021EH ; RESET FLIP/FLOP 
HL,RDSP+1 ;GET DJNZ2 
B,(HL) ;AND DELAY 
$ ?AWHILE 

A, (0FFH) ;CHECK FLIP/FLOP 
B,A ;SAVE IN 'B' 

AF ; RESTORE 'A' FROM STACK 

B ; CHECK TO SKE IF 

; FLIP/FLOP VffiS SET 
AF ;SAVE RESULTS ON STACK 

021EH ; RESET FLIP/FLOP 
AF ; RESTORE 

BC ; REGISTERS 

; RETURN TO CALLER 

HL ;SAVE ON STA£K 

A ?LOAD 'A' WITH 

RDBIT ;READ FROM TAPE 
0A5H ; IS IT THE 0A5H BYTE? 

NZ.S-5 ;N0 KEEP TRYING 

A,2AH ;'*' TO "A" REGISTER 
( 3C3EH) , A ; AND DISPLAY 
(3C3FH),A ; ON VIDEO 
HL ; RESTORE 'HL' 

rRETURN TO CALLER 



Program continued 
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01610 

01620 RDSP 

01630 

01640 WRSP 

01650 

01660 

01670 TAPE 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 FAST 

01800 

01810 

01820 

01830 

01840 

01850 COPY 

01860 

01870 

01830 

01890 WRITE 

01900 

01910 



DEFW 
DEFW 



CALL 
DEFM 
CALL 

CP 

JR 
LD 
LD 
LD 
LD 
RET 

LD 
LD 
LD 

LD 
ROT 

CALL 
CALL 

RET 

CALL 

JP 

EMD 



412EH 



4117H 



;1000 BITS/SECOND 
;DJNZ4 AND DJNZ3 
;1000 BITS/SECOND 
;DJNZ2 AND DJNZ1 



WRCMD ;ZBUG SUBROUTINE TO 
' (F/S) , ' fWRITE MESSAGE 
GETCH fZBUG SUBROUTINE 

;TO GET REPLY 
'F* ;IS REPLY AN 'F' 

Z.FAST ;YES GOTO FAST 

HL.8560H ; OTHERWISE LOAD 
(RDSP).HL ;RDSP AND WRSP 
HL,875CH fWITH SLOW 
(WRSP),HL ; SPEED VARIABLES 

; RETURN TO CALLER 

HL,412BH ,-LOAD RDSP 
(RDSP).HL rAND WRSP 
KL,4117H ;WITH FAST 
(WRSP),HL ;SPEED VARIABLES 
;RETUFN TO CALLER 

OUTSTR ;NEED MORE ROOM 
TAPE ;IN ZBUG PROGRAM 
;RETUFN TO CALLER 

TAPE fNEED MORE ROOM 

SETUP2 ; AGAIN 

4338H ;ZBUG STARTING POIOT 
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30 

Blinking and 
Repeating on the 
Model I 

by Craig A. Lindley 



System Requirements: 

Mixiel I 

16K RAM 

One dish drive 

TRSDOS-compatiblc DOS 



T 



r he Model I, unlike newer and more expensive computers, lacks a 
blinking cursor and repeating keys. This utility adds these capabili- 
ties to your Model I. Like most other special keyboard drive routines, 
NEWDVR patches itself into the keyboard device control block (DCB) 
so that it, not the normal keyboard driver routine, is executed when the 
keyboard is polled. The computer is continually polling the keyboard in 
order to respond to input immediately. 

Essentially, NEWDVR directs the computer to: 
•Blink cursor on then off until a key is pressed. 
•Transmit the valid key code immediately to the operating system. 
•If the key is held down, delay before repeating the key. 
•After delay is up, repeat key until key is released. 
I have successfully tested this routine in BASIC and machine-language 
programs. 

How It Works 

The first portion of code, labeled PATCH, puts the address of the 
NEWDVR routine into the keyboard DCB (see Program Listing). The 
PATCH routine also places the address of the normal keyboard scan rou- 
tine, taken from the DCB, into the NEWDVR code at two places, so you 
can call the keyboard scan routine to get keyboard characters from the 
operator. PATCH also protects NEWDVR from being overwritten, by 
storing its address, minus one, in the DOS top-of-memory pointer at 
4049H. 
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The first part of the NEWDVR code checks to see if the routine calling 
the keyboard scan is the wait-for-key routine at 49H in ROM. If so, the 
blinking cursor routine is executed. If not, the normal key scan routine is 
initiated. This function is checked by looking back on the stack to see 
what the return address of the calling routine is. An address of 4CH, ten 
bytes back on the stack, indicates the routine at 49H is calling. Any other 
address indicates the calling program is doing a keyboard scan, probably 
just to check whether the BREAK key is active, not waiting for input. 
This feature was added because quite a few TRS-80 programs scan the 
keyboard constantly for a BREAK command. This is normally invisible, 
but becomes painfully obvious if the cursor has to blink before the call- 
ing program can continue execution. 

If the NEWDVR routine decides that the blinking cursor routine 
should be executed, the first thing it does is turn off the normal cursor 
character, by outputting the cursor-off character code of 15 decimal to 
the ROM display routine at 33H. Then the address of the cursor is loaded 
into HL and the character at the current address of the cursor is loaded 
into register C for safekeeping. The new block cursor character (code 
143 decimal) is stored over the original character at the current address 
of the cursor. The RDKEYS routine, described below, is called to read 
the keyboard repeatedly until either a key press is detected or a predeter- 
mined time period elapses. This time period is controlled by the BLINK 
equate in the listing. 

The RDKEYS routine returns with the Z flag reset, if a key was detect- 
ed; or set, if not. The original character at the cursor positionis replaced. 
If the RDKEYS routine detected a key, control returns to the operating 
system with that character in the A register. If not, the RDKEYS routine 
is again called to see if a key has now been pressed. Control returns un- 
conditionally to the operating system after this call, with the Z flag set ac- 
cordingly. Calling the RDKEYS subroutine twice, first with the block 
cursor character at the cursor address, and then with the original charac- 
ter at the cursor address, causes the cursor to blink at a 50/50 duty cycle 
(half on, half off). 

The RDKEYS routine performs the actual polling of the keyboard. The 
number of times it polls before returning to the NEWDVR routine is con- 
trolled by the BLINK time constant, which is contained in DC. This 
count decrements one each time the keyboard is polled and no key has 
been pressed. The delay count (IX) and the first-time flag (IX + 1) are re- 
set to zero to indicate that a key was not found. The delay count deter- 
mines how long after the key is held down the repeat function begins. 
The first-time flag is zero before a new key is pressed, and one 
afterwards. 

If the BLINK count reaches OFFH, or 255, before a key is detected, the 
RDKEYS routine returns to the NEWDVR routine with Z= 1 indicating 
this. Clearing the 7-byte keyboard work area at 4036H to zero before 
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polling the keyboard causes the normal keyboard driver routine to re- 
turn a key code, even if the key has not been released. Normally, the 
keyboard driver routine does not return a key code until another key is 
pressed, or the original key was released and pressed again. 

If the RDKEYS routine determines that a key has been pressed before 
the BLINK count is exhausted, control transfers to the FOUND routine 
for additional processing. There, the key character code is placed in the 
B register for temporary storage. The delay count is loaded into the accu- 
mulator and a comparison is done to see if the count equals zero. The 
count equals zero when a key is first pressed, or after the delay time 
counter has overflowed. If a key was just pressed, control transfers to Fl , 
and the keyboard character stored in B is returned to the A register. 

A test is performed to see whether this is a new keypress, signified by 
the first-time flag equaling zero. If so, the delay count is incremented to 
one and the first-time flag is set to one, so that these instructions are 
skipped the next time the Fl routine is entered. The F2 routine is execut- 
ed whether or not this was the first time through Fl. F2 resets the Z flag 
to indicate that a key has been pressed, before returning the key charac- 
ter in the A register to the NEWDVR routine and eventually to the oper- 
ating system. 

If the key remains pressed the next time the keyboard is polled, con- 
trol does not pass to the Fl routine because the delay count is not zero. 
This causes the delay count to shift, the accumulator to clear, the Z flag 
to be set, and control to return to the NEWDVR routine. This means a 
delay before the keys start to repeat, because when the delay count 
doesn't equal zero, this routine passes the keyboard null code of 00 back 
to the operating system, just as if no keys were being pressed. When 
shifting the count causes the count to again equal zero, the Fl routine is 
executed again. This time, however, the Fl routine doesn't increment 
the delay count, so the keys repeat at full speed. 

Using this Program 

Place this program in memory one byte at a time, by using a monitor 
program such as DEBUG and writing it to tape or disk. Or, assemble it as 
a DOS/CMD file, using an editor/assembler. Change the program ORG, 
as shown on the listing, to reflect your computer's memory size. If your 
system is non-disk, change the jump to the operating system in line 250 
of the listing to a return to BASIC ( 1 A19H). Make sure the memory loca- 
tion of this program doesn't conflict with any other high memory 
programs. 
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Program Listing 







00100 


. *************************************** 






00110 


1*** 




BLINKING CURSOR 


*** 






00120 


.*** 


REPEAT KEY UTILITY 


*** 






00130 


.*** 




VERSION 1.2 


*** 






00140 


.*** 

i 


NCWEMBER 26, 1981 


*** 






00150 


. *** 




BY 


*** 






00160 


,*** 


CRAIG A. LINDLEY 


*** 






00170 


.♦•A************************************ 






00180 


; 












00190 


I SYSTEM EQUATES 








00200 


; 








0400 




00210 


BLINK 


EQU 


0400H 


CURSOR BLINK TIME CONST. 


0033 




00220 CHROUT 


EQU 


0033H 


VIDEO CHAR OUT ROUTINE 


4020 




00230 CURSOR 


EQU 


4020H ; 


CURSOR ADDR STORAGE 


4016 




00240 


KEYDCB 


EQU 


401 6H 


•KEYBOARD DCB 


402D 




00250 OPSYS 


EQU 


402DH 


DOS REENTRY POINT 


4049 




00260 TOPMEM 


EQU 


4049H 


DOS TOP MEM PTR 


4036 




00270 WKARFA 


EQU 


4036H 


KEY DVR WORK AREA 






00280 


i 












00290 


.********** 










00300 


; PROGRAM ORGS FOR VARIOUS MEMORY SIZES 






00310 


r48K - 


FF70H 










00320 


,*32K - 


BF70H 










00330 


;16K - 


7F70H 










00340 


. ********** 










00350 


; 








FF70 




00360 
00370 


, 


ORG 


0FF70H 








00380 


.***•****•* 










00390 


; START OF PROGRAM 








00400 


.********** 










00410 


* 








FF70 2A1640 


00420 PATCH 


LD 


HL, (KEYDCB) 


GET NORM KEY DRIVER ADDR 


FF73 


22C6FF 


00430 




LD 


(SCAN2+1),HL 


PLACE IN CODE FOR CALL 


FF76 


2296FF 


00440 




LD 


(NEWD1+1),HL 




FF79 


2188FF 


00450 




LD 


HL, NEWDVR 


GET NEW DVR ADDR 


FF7C 221640 


00460 




LD 


(KEYDCBj.HL 


PLACE IN KEYBOARD DCS 


FF7F 2187FF 


00470 




LD 


HL,NEWDVR-1 


MEMORY PROTECT LIMIT 


FF82 


224940 


00480 




LD 


(TOPMEM), HL 


STORE TOR DOS 


FF85 


C32D40 


00490 
00500 


. 


JP 


OPSYS 


■BACK TO OPSYS 






00510 


,********** 










00520 


•NEW KEYBOARD 


DRIVER ROUTINE 








00530 


.**#******* 










00540 


; 








FFS8 ED73B3FF 00550 NEWDVR 


LD 


(STKPTR),SP 


■GET STACK PTR ADDR 


FFBC DD2AB3FE 


- 00560 




LD 


IX, (STKPTR) 


INTO IX 


FF90 3E4C 


00570 




LD 


A,4CH 


LSB OF CALL TO 49H 






00580 








RET ADDRESS 


FF92 DDBE0A 


00590 




CP 


(IX+10) 


•CALL FROM 49H 7 


FF95 C20000 


00600 NEWDl 


JP 


NZ,$-$ 


■IF NOT THEN 






00610 


; 








FF98 DD21B1FF 00620 




LD 


IX,STATOS 


PT AT STATUS 


FF9C 


3E0F 


00630 




LD 


A,15 


CURSOR OFF CODE 


FF9E 


CD3300 


00640 




CALL 


CHBOUT 


■OUTPUT CODE 


FFA1 


2A2040 


00650 




LD 


HL, (CURSOR) 


•GET CURSOR LOCATION 


FFA4 


4E 


00660 




LD 


C,(HL) 


GET CHAR AT CURSOR 


FFA5 


3E8F 


00670 




LD 


A, 143 


BLOCK CURSOR CODE 


FFA7 


77 


00680 




LD 


(HL),A ; 


STORE AT CURSOR LOCATION 



226 / THE REST OF 80 



FFA8 CDB5FF 


00690 




CALL 


RDKEYS 


FFAB 71 


00700 

00710 




LD 


{HL),C 


FFAC C0 


00720 




RET 


NZ 


FFAD CDB5FF 


00730 




CALL 


RDKEYS 


FFB0 C9 


00740 
00750 


. 


RET 






00760 


; SYSTEM 


STORAGE 


LOCATIONS 




00770 


; 






0001 


00780 STATUS 


DEFS 


1 


0001 


00790 




DEFS 


1 


0002 


00800 
00810 


STKPTR 


DEFS 


2 




00820 


i 






00830 


', SUBROUTINES 






00840 


t 






00850 


; 






FFB5 110004 


00860 


RDKEYS 


LD 


DE, BLINK 


FFB8 ES 


00870 SCAN 


PUSH 


HL 


FFB9 D5 


00880 




PUSH 


DE 


FFBA C5 


00890 




PUSH 


BC 


FFBB 213640 


00900 




LD 


HL.WKAREA 


FFBE 0607 


00910 




LD 


B,7 


FFC0 3600 


00920 SCAN1 


LD 


(HL.),0 


FPC2 23 


00930 




INC 


HL 


FFC3 10FB 


00940 




DJNZ 


SCAN1 


FFC5 CD0000 


00950 SCAN2 


CALL 


$-5 




00960 








FFC8 B7 


00970 




OR 


A 


FFC9 2008 


00980 




JR 


NZ,SCAN3 


FFCB DD360000 00990 




LD 


(IX), 


FFCF CD360100 


01000 




LD 


(IX+1),0 


FFD3 CI 


01010 SCAN3 


POP 


BC 


FFD4 Dl 


01020 




POP 


DE 


FFD5 El 


01030 




POP 


HL 


FFD6 2005 


01040 




JR 


NZ, FOUND 


FFD8 IB 


01050 




DEC 


DE 


FFD9 BA 


01060 




CP 


D 


FFDA 20DC 


01070 




JR 


NZ.SCAN 


FFDC C9 


01080 
01090 


. 


RET 




FFDD 47 


01100 


FOUND 


LD 


B,A 


FFDE DD7E00 


01110 




LD 


A, (IX) 


FFE1 FE00 


01120 




CP 





FFE3 2806 


01130 




JR 


Z,F1 


FFE5 DDCB0026 


01140 




SLA 


(IX) 


FFE9 AF 


01150 




XOR 


A 


FFEA C9 


01160 




RET 




FFEB 78 


01170 Fl 


LD 


A,B 


FFEC DDCB0146 


01180 




BIT 


0, (IX+1) 


FFF0 2007 


01190 




JR 


NZ,F2 


FFF2 DD3400 


01200 




INC 


(IX) 


FFF5 DDCB01C6 


01210 




SET 


0,(IX+1) 


FFF9 FE00 


01220 F2 


CP 





FFFB C9 


01230 
01240 
01250 


1 


RET 




FF70 


01260 




END 


PATCH 



;READ KEYBOARD 

;PUT ORIGINAL CHAR AT 

rCURSOR BACK 

flF KEY FOUND THEN 

;READ KEYBOARD AGAIN 



DELAY COUNT 
1ST TIME FLAG 
STACK PTR STORAGE 



;LOAD TINE CONSTANT 
;SAVE REGS 



;CLEAR KEYBOARD WORK AREA 
;TO MAKE DRIVER RETURN A 
;KEY CODE EVERYTIME IT IS 
;CALLED. 

;READ KEYBOARD USING 
; NORMAL KEY DRIVER 
;N0 KEY PRESSED 7 
■IF KEY PRESSED THEH 
; RESET DELAY COUNT 
; RESET 1ST TIME FLAG 
; RESTORE REGS 



rIF KEY PRESSED THEN 
jDEC BLINK COUNT 
; BLINK TIM: FINISHED 7 
;IF NOT READ KEYS AGAIN 



SAVE KEY CHAR 
GET DEIAY COUNT 
IS IT ZERO 7 

IF YES THEN 
SHIFT COUNT 
"A" = 

.•RESTORE CHAR 

flST TIME ? 

;IF NOT THEN 

;BUMP COUNT 

;RESET 1ST TIME FLAG 

;SET NZ FLAG 
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31 

SYNC: Automatic 
Start and Memory 
Size Setting 

by Theodore J. LeSarge 



System Requirements: 

Model 1 

16KRAM 

Editor/assembler 



I wrote SYNC to provide automatic start and automatic memory size 
setting for my tape-based BASIC programs. SYNC assigns a number to 
each program CSAVEd and lets you CLOAD it by entering its identifi- 
cation number. You can choose any number from 1-255 (except 165, a 
code used by the computer to signal the end of the header pulses used to 
synchronize the data pulse and the computer's clock). 

It's easy to relocate the program. Just make sure the new origin in line 
190 and the END statement in line 1 160 are the same. Lines 200-210 re- 
set the automatic start. Lines 220-250 answer the memory size question 
at power-up. The computer stores the memory size, minus two, in mem- 
ory location 40B1H. The TRS-80 automatically sets string space to 50 
bytes and stores that number at location 40A0H. The HL register pair is 
loaded with the location in memory of the label DEF, minus 52. This 
number is placed at 40A0H. The process then repeats, but minus two. 
This number is stored at 40B1H. 

When your non-disk TRS-80 is ready, memory locations 4152H- 
41A5H are set to jump to the L3 (Disk BASIC only) error display. Since 
these locations are in user RAM, you can easily detour the interpreter 
and use disk commands to execute your own machine-language pro- 
grams. Lines 270-320 do just that. These locations already contain the JP 
(195 decimal) op code; just enter the 2-byte address of your program's 
entry point. 

Line 340 returns you to BASIC. Note that I used 06CCH rather than 
the popular 1A19H for the entry point. A jump to 1A19H often produces 
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the ?OM (out of memory) error when the next command in BASIC is 
executed. When you type DEF in the command mode, the computer 
jumps to the memory location specified in line 360. Line 620 uses a ROM 
routine at 01C9H to clear the video display. Lines 630-660 set the cursor 
to the eighth line of the screen, set up the HL register pair to the message 
address at line 1060, and use ROM routine 28A7H for display. Line 670 
sets the HL pair to the start of the buffer location. Lines 680-800 allow 
up to three numbers to be entered without pressing ENTER. Line 690 
uses the ROM keyboard scan operation. 

The A register now contains the character(s) entered. This is compared 
with 0DH, the code for ENTER. If ENTER is pressed for the first num- 
ber, the computer responds with the ?MO (missing operand) error. 
Lines 730-760 trap non-numeric input. When a number is entered, line 
770 loads it into a buffer. Line 780 uses the ROM display location 033H. 
The character in the A register is displayed at the current cursor location. 
Line 790 moves the HL pair to the next memory location in the buffer, 
while line 800 decrements the B register and checks for a non-zero re- 
sult. After three numbers are entered, the program loop falls through 
and line 810 is executed. If fewer than three numbers are entered, the 
program goes back to the keyboard scan. Lines 810 and 820 set the last 
location in the buffer to zero, used in the next instruction. 

Decimal Conversions 

When you enter a number in response to the computer's prompt, the 
program uses the ROM keyboard scan at 049H, and loads trie A register 
with the ASCII value of your input. For decimal 145, these would be 
31H, 34H, and 35H. Each number is converted to binary coded decimal 
(BCD) by subtracting 30H from the ASCII value. Then each digit is mul- 
tiplied by the power of ten it represents. This is a long process; the ROM 
routine at location 2B02H does the work. Each number input is stored in 
a buffer. The buffer is terminated with a zero (lines 810 and 820), the HL 
pair is set to the beginning address of the buffer, and 2B02H is called. 
The result is put in the DE register pair. 

You can use this routine for numbers up to 32767; numbers beyond 
that give you an error. Because this program uses numbers up to 255 (the 
maximum for a single register), the answer from 2B02H is in the E regis- 
ter. Line 860 stores this number in memory. Lines 870-920 check for a 
synchronization byte of less than one or more than 255. The A register is 
set to zero and the HL pair is loaded with 255. If the E register is equal to 
the A register or greater than the HL pair, you get an error message. 
Lines 950-1040 set up and display the error message. A delay routine 
holds the display for about three seconds before returning you to line 
620 for another try. If everything is entered correctly, the operation re- 
turns to 370, which jumps to the BASIC command mode. 
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To save your BASIC program, type SAVE and press ENTER. A file 
name is not needed. The program jumps to line 390, the cassette 
recorder starts, a leader of 255 zeros is written to tape, and return points 
used by ROM are saved on the stack. Line 480 loads the A register with 
your next synchronization byte; this also goes on the tape. Line 490 
jumps to the remainder of the normal CSAVE instructions in ROM. Your 
BASIC program is now saved on tape with its code number. Confirm the 
save with LOAD?. 

To load a program type DEF, type the identification number and enter 
the word LOAD. Lines 510-600 start the cassette recorder, load the DE 
register pair, and compare the value in the DE register to what the 
TRS-80 reads from the tape. When there is a match, lines 570-590 
display two asterisks in the upper corner. If one of them doesn't blink, 
you entered the wrong code number; press RESET to continue. 

Now, for the automatic start: lines 1140-1160 place the instruction 
"jump to where HL points" at 41E2H. The END statement loads the pro- 
gram start into HL. Then the first system command calls 41E2H, nor- 
mally C9H or a return function. When this program loads, the computer 
jumps to the start of the program. Lines 200 and 210 reset this location so 
the system command operates correctly the next time. 









Program Listing 






00100 


; BASIC 


CODING PROGRAM 








00110 


; CREATES NEW SYNC BYTE 








00120 


jTHEODORE J. LESARGE 








00130 


?6027 


W. DECKER 


ROAD 








00140 


;LUDINGTON, Ml. 


49431 








00150 


r(616) 


845-6905 










00160 


rJULY 


20, 1981 










00170 














00180 












7F20 


00190 




ORG 


7F20H 




32544 


7F20 3EC9 


00200 




LD 


A.0C9H 




RESET 


7F22 32E241 


00210 




LD 


(41E2H) 


A 


AUTO START 


7F25 21157F 


00220 




LD 


HL.DEF- 


52 


SET 


7F28 22A040 


00230 




LD 


(40A0H) 


HL 


STRING SPACE 


7F2B 21477F 


00240 




LD 


HL,DEF-2 


SET 


7F2E 22B140 


00250 




LD 


(40B1H) 


HL 


MEM SIZE 




00260 


;SET DISK BASIC 


ENTRY WORDS 




7F31 214F7F 


00270 




LD 


HL, CSAVE 




7F34 22A141 


00280 




LD 


(41A1H) 


HL 


"SAVE" WORD 


7F37 21687F 


00290 




LD 


HL,LOAD 






7P3A 228941 


00300 




LD 


(4189H) 


HL 


"LOAD" WORD 


7F3D 21497F 


00310 




LD 


HL.DEF 






7F40 225C41 


00320 




LD 


(415CH) 


HL 


"DEF" WORD 


7F43 CD491B 


00330 




CALL 


1B49H 




NEW 


7F46 C3CC06 


00340 
00350 




JP 


06CCH 




READY/ //NOT 1A19H 


7F49 CD827F 


00360 


DEF 


CALL 


SCN 






7F4C C3CC06 


00370 




JP 


06OCH 




READY 
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00380 








7F4F 21OC06 


00390 CSAVE 


LD 


HL,06CCH ; 


RET POINTS 


7F52 E5 


00400 


PUSH 


HL ; 


ROM WILL 


7F53 21FB2B 


00410 


LD 


HL,2BFBH 


USE 


7F56 E5 


00420 


PUSH 


HL 




7F57 CDFE01 


00430 


CALL 


01FEH 


ON TAPE 


7F5A 06FF 


00440 


LD 


B.0FFH 


255 


7F5C AF 


00450 


XOR 


A 


00000'S 


7F5D CD6402 


00460 


CALL 


0264H 


WRITE 


7F60 10FB 


00470 


DJNZ 


$-0 3H 


B=07 


7F62 3AFE7F 


00480 


LD 


A, (SYNC) 


NEW SYNC BYTE 


7F65 C36402 


00490 
00500 


JP 


0264H 


BACK TO ROM 


7F68 CDFE01 


00510 LOAD 


CALL 


01FEH 


ON TAPE 


7F6B E5 


00520 


PUSH 


HL 




7F6C CD4102 


00530 


CALL 


0241H 


READ 


7F6F ED5BFE7F 00540 


LD 


DE, (SYNC) 


NEW SYNC BYTE 


7F73 BB 


00550 


CP 


E 


A SAME AS E 


7F74 20F6 


00560 


JR 


NZ,S-08H 


NO? GO AGAIN 


7F76 3E2A 


00570 


LD 


A.2AH 


* 


7F78 323E3C 


00580 


LD 


(3C3EH),A 


SCREEN 


7F7B 323F3C 


00590 


LD 


(3C3FH),A 


SAME+1 


7F7E El 


00600 


POP 


HL 




7F7F C3222C 


00610 


JP 


2C22H 


BACK TO ROM 


7F82 CDC901 


00620 SCN 


CALL 


01C9H 


CLS 


7F85 21C03D 


00630 


LD 


HL,3DC0H 


SCREEN LCC 


7F88 222040 


00640 


LD 


(4020H),HL 


SET CURSOR 


7F8B 21D97F 


00650 


LD 


HL,MESG1 


•SET PTR 


7F8E CDA728 


00660 


CALL 


28A7H 


DISPLAY IN ROM 


7F91 21FA7F 


00670 


LD 


HL, BUFFER 


•SET PTR 


7F94 0603 


00680 


'LD~ 


B,03H 


THREE NUMBERS 


7F96 CD4900 


00690 


CALL 


049H 


•KEYBD SCN 


7F99 FE0D 


00700 


CP 


0DH 


•ENTER PRESSED? 


7F9B 2811 


00710 


JR 


2,$+13H 


•YESi CONTINUE 




00720 ; NUMBER TEST 


ROUTINE/NUMBERS ONL 1 


{ 


7F9D FE30 


00730 


CP 


030H 




7F9F FA967F 


00740 


JP 


M,S-09H 




7FA2 FE3A 


00750 


CP 


03AH 




7FA4 F2967F 


00760 


JP 


P,S-0EH 




7FA7 77 


00770 


LD 


(HL),A 


•NO. TO BUFF 


7FA8 CD3300 


00780 


CALL 


033H 


•DISPLAY IN ROM 


7FAB 23 


00790 


INC 


HL 


•BUMP ONE 


7FAC 10E8 


00800 


DJNZ 


S-016H 


■B=0? NO GO AGAIN 


7FAE AF 


00810 


XOR 


A 


•ZERO IN A 


7FAF 77 


00820 


LD 


(HL),A 


•DELIMITER FOR BUFF 


7FB0 21FA7F 


00830 


LD 


HL, BUFFER 


•SET PTR 




00840 ;ROM ROUTINE 


CONVERTS ASCII NUME1 


RIC/RESULTS IN DE 


7FB3 CD022B 


00850 


CALL 


2B02H 


•VERY USEFUL 


7FB6 ED53FE7F 00860 


LD 


(SYNC),DE 


; STORE 


7FBA AF 


00870 


XOR 


A 


;ZERO A REG 


7FBB BB 


00880 


CP 


E 


;E=0? 


7FBC 2807 


00890 


JR 


Z, ERROR 


;YES/END 


7FBE 2IFF00 


00900 


LD 


HL,0FFH 


; 255 MAX NUMBER 


7FC1 DF 


00910 


RST 


18H 


;DE>HL? 


7FC2 3801 


00920 


JR 


C, ERROR 


;YES IF CARRY 


7FC4 C9 


00930 
00940 


RET 






7FC5 21EC7F 


00950 ERROR 


LD 


HL.ERRMSG 


;SET PTR 


7FCS CDA728 


00960 


CALL 


28A7H 


; DISPLAY 




00970 ; DELAY 


ROUTINE FOR ERROR DISPLAY 


—ABOUT 3 SECONDS 


7FCB 0603 


00980 


LD 


B.03H 


;THREE LOOPS 



Program continued 
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7FCD 21frVfcV 


00990 


LD 


HL.0FFFFH 


,-65535 


7FD0 2B 


01000 


DEC 


KL 


;ONE LESS 


7FD1 7C 


01010 


LD 


A,H 


;H TO A 


7FD2 B5 


01020 


OR 


L 


;ZERO TEST 


7FD3 20FB 


01030 


JR 


NZ,$-03H 


fHDPE? 


7FD5 10P6 


01040 


DJNZ 


$-08H 


;B=0? 


7FD7 18A9 


01050 


JR 


SCN 


(BACK AGAIN 


7FD9 45 


01060 MESG1 


DEFM 


'ENTER CODE NUMBER ' 


7FEB 00 


01070 


DEFB 





;STOPS OUTPUT 


7FEC 20 


01080 EREMSG 


DEFM 


(1 TO 255)' 




7FF9 00 


01090 


HCTTt 







0004 


01100 BUFFER 


DEFS 


04H 


• BUFFER LENGTH 


7FFE 0000 


01110 SYNC 
01120 


DEFW 





;NEW SYNC BYTE STORE 




01130 ;SET UP 


FOR AUTO START 




41E2 


01140 


ORG 


41E2H 


;SET UP 


41E2 E9 


01150 


JP 


(HL) 


; AUTO START 


7F20 


01160 


END 


7F20H 




00000 TOTAL 


ERRORS 
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Index 



Array variables, 155 
ASCII, 51 

ASCII code(s), 104, 105 
program listing, 53-54 
translating strings into, 51-53 
ASCII disk files, 18 
ASCII strings, 26 
Assembly and check-out program 
(EDTASM and T-BUG), 175-178 
program listing, 178-179 
Assembly-language and BASIC 
programs, how to combine, 
55-57 
program listing, 57-59 
Assembly-language routine to draw 
lines, 89-90, 92-93 
program listings, 94-98 
BASIC, adding commands to, 60-63 

program listings, 63-73 
BASIC and assembly-language 
programs, how to combine, 
55-57 
program listing, 57-59 
BASIC compiler, 89 
BASIC DATA statement lines, saving 
screen as, 107-110 
program listings, 110-115 
BASIC interpreter, 18, 19, 55, 56, 57, 

60, 128, 129, 158 
BASIC keywords, defining, 173-174 

program listing, 174 
BASIC tokens, 56 
Batch processing, 9 
Binary search algorithm compared to 

Shell-Metzner sort, 44-45 
Blinking cursor for the Model I, 
223-225 
program listing, 226-227 
Block moves, machine-language, 107 



BREAK key, how to disable, 16-17 

code, 17 
Bugs and idiosyncracies in Radio 

Shack's Model I disk BASIC, 
calculations, loss of accuracy in, 38 
comparison statement, 33 
compound statement, 33 
DATA statements, 34-35 
double precision, 37 
errors in arithmetic operations, 35 
FIX function to create integer, 35 
formulas, sensitivity to changes in 

input values, 39-40 
IF-THEN-ELSE statement, 35 
IF-THEN statement, 33 
INPUT* 1 statement, 35 
mathematically identical values, 

interpretation of, 34 
misinterpretation of statement, 34 
PRINT statement, how to suppress 

a line feed in, 34 
real numbers, comparison of, 

37-38 
significant figures in BASIC, 36 
single precision, 37 
SQR function, inaccuracy of, 37 
TAB function, use of spaces with, 

35-36 
trigonometric functions, 

inaccuracy of, 36 
user defined functions, 33-34 
VAL function, 34 
Byte, 
least significant (LSB), 86, 155, 209 
most significant (MSB), 86, 155, 

209 
synchronizing, 211 
Cassette programs, faster loading of, 

202-213 
program listings, 213-222 
CHR$, 104 
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CHR$(n| function, 51 

CHR$[32} ( 52, 53 

Commands, adding to BASIC, 60-63 

program listings, 63-73 
Commands, program to describe, 
116-117 
program listing, 118-127 
CRT, 25 

Cursor, blinking, for the Model 1, 
223-225 
program listings, 226-227 
Data entry, form fillout program for, 
18 
assembly- language portion, 23-25 
assembly-language program listing, 

27-30 
BASIC portion, 25-26 
BASIC program listing, 30-32 
implementation of, 19-20 
modifications, 26 
DATA lines, 52 
Debugging, program to aid in, 
137-139 
program listing, 139-142 
DEFUSR, 56 

Directory routine, 134-135 
program listing, 135-136 
Disk index, 128-131 

program listings, 131-133 
Disk menu program for 

NEWDOS/80 Version 2, 180-181 
program listing, 181 
EDTASM and T-BUG combined, 
175-178 
program listings, 178-179 
80 Micro, see 80 Microcomputing 
80 Microcomputing, 44, 85, 155, 156, 

176, 180, 184, 191,208, 211 
Epson MX-100 printer, 130 
500- baud rate of Model I, how to 
exceed in cassette loading, 
202-213 
program listings, 213-222 
Formatting, 104-105 
program listing, 105- 106 



Form fillout program for data entry, 

18 
assembly-language portion, 23-25 
assembly-language program listing, 

27-30 
BASIC portion, 25-26 
BASIC program listing, 30-32 
implementation of, 19-20 
modifications, 26 
FOR-NEXT loop(s), 52, 85 
Garbage collection, 62 
Graphics editor, 107-110 

program listings, 110-115 
Hashing, 12 
Idiosyncracies and bugs in Radio 

Shack's Model I Disk BASIC, 
calculations, loss of accuracy in, 38 
comparison statement, 33 
compound statement, 33 
DATA statements, 34-35 
double precision, 37 
errors in arithmetic operations, 35 
FIX function to create integer, 35 
formulas, sensitivity to changes in 

input values, 39-40 
IF-THEN-ELSE statement, 35 
IF-THEN statement, 33 
INPUT#1 statement, 35 
mathematically identical values, 

interpretation of, 34 
misinterpretation of statement, 34 
PRINT statement, how to suppress 

a line feed in, 34 
real numbers, comparison of, 

37-38 
significant figures in BASIC, 36 
single precision, 37 
SQR function, inaccuracy of, 37 
TAB function, use of spaces with, 

35-36 
trigonometric functions, 

inaccuracy of, 36 
user defined functions, 33-34 
VAL function, 34 
Indexed access method, 13 
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under TRSDOS, 13-14 
Index program for disks, 128-131 

program listings, 131-133 
Initialization, 86 
Keystroke multiplier,. LDOS, 
173-174 
program listing, 174 
LDIR instruction, 85, 100 
LDOS keystroke multiplier (KSM), 
173-174 
program listing, 174 
Least significant byte (LSB), 86, 155, 

209 
LEN, 158 
Level II BASIC Reference Manual, 16, 

61 
Level II manual, 101 
L1NEINPUT, 52 
Line number, how to change with 

POKE, 15-16 
Link between BASIC and assembly- 
language programs, 55-57 
program listing, 57-59 
LIST, how to disable, 15-16 

code, 17 
Machine-language sort routine built 
into TRS-80, 41 
program listings, 42-43 
Machine-language subroutines, 

starting address requirements in 
Level II and Model III BASIC, 93 
Memory size, setting automatically, 
for tape-based BASIC programs, 
228-230 
program listing, 230-232 
Model III Disk System Owner's 

Manual, 128 
Most significant byte (MSB), 86, 155, 

209 
Numbers, sorting on TRS-80, 41 

program listings, 42-43 
Numeric variables, 26 
Password protection, locking and 
unlocking, 163-164 
program listing, 164-172 



Pixels, 92 
POKE, 104 
using, to change line number, 
15-16 
PRINT®, 100 
PRINT AT, 104 
PRINT USING, 104 
Professional-looking programs, 
formatting, 104-105 
program listing, 105- 106 
Pseudo instruction, 117 
Radio Shack, 129 
Random access, 10 
examples, 11-12 
locating files, 1 1 
Renumber utility program, 143, 
145-146 
assembly-language program, using, 

145 
assembly-language program listing, 

148-152 
BASIC program, using, 144 
BASIC program listing, 146-148 
limitations, 145 
Repeating keys for the Model 1, 
223-225 
program listing, 226-227 
ROM, 55, 56, 57, 99 
RST 10H, 55, 56, 57 
Scripsit, modified to allow 

communications program to 
interface with it, 182-184 
program listing, 184-190 
use with T-BUG, 184 
Scrolling, 85-88 

program listing, 88 
Scrolling, how to control, 99-101 

program listings, 101-103 
Sequential access, 9 
Shell-Metzner sort routines, 
comparison of, 44-45 
description of program, 46-47 
program listing, 47-50 
Sketch, how to construct and save 
file of, 107-110 
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program listings, 110-115 
Slope of a line, 90 

Sort routine, machine-language, built 
into TRS-80, 41 
program listings, 42-43 
Start, automatic, for tape-based 
BASIC programs, 228-230 
program listing, 230-232 
String packing algorithm, TRS-80, 45 
String packing program, 158-161 

program listing, 161-162 
Strings, 
displaying, 158 
modifying, 158 
packing, 158 
STRINGS, 89 
String variables, 19, 26, 51, 52, 61, 

62, 63, 158 
Synchronizing byte, 211 
T-BUG and EDTASM combined, 
175-178 
program listing, 178-179 
Tiny Pascal, 
Celsius to Fahrenheit conversion, 

74-75 
compared to standard Pascal, 74, 

191 
cube root program, 75-76 
disk version, 191-193 
disk version, program listings, 

196-201 
disk version, user's manual, 

193-196 
equation solving program, 75 
exponential function program, 80 
Morse code program, reading, 

82-84 
Morse code program, speed 

timing, 80-82 
prime number generator, 78 
Radio Shack's, 193 
random number generators, 77-78 
square root programs, 75-77 
trigonometry program, 78-80 
Tiny Pascal User's Manual, 193 



Token(s), 60, 145 

BASIC, 56 
TRSDOS's LIB function, 116 
T-state, 203 
Two's complement, 87 
USR, 25, 56, 100 
USR(n) function, 89 
USR subroutines, 107 
Variables, 

array, 155 

numeric, 26 

string, 19, 26, 51, 52, 61, 62, 63, 
158 
Variables, program to list, 155-156 

program listing, 157 
VARPTR, 19, 25, 61, 63, 158 
(x,y) coordinates, using, to draw 
lines, 89-90, 92-93 

program listings, 94-98 
Z80, 128, 129 
Z80 code, 86 
Z80 microprocessor, 18, 155, 203 



236 / THE REST OF 80 



/ 



Dp 



31 

all 
new 

tutorials 

and 

utilities 




From the overflowing files of 80 MICRO* The very best 
articles from files full of manuscripts too good to pass up. 
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